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FOREWORD 



The Prime Forms Management System (herein referred to as FORMS) 
provides a convenient and natural method of defining a form in a 
language designed for such a purpose. These forms may then be 
implanented by any amplications program v*iich uses Prime's Input-Output 
Ctontrol Syston (IOCS) , including programs written in CCBOL, POCTRAN, 
RPG-II, and JWA. Applications programs canmunicate with FORMS through 
input/output statenents native to the host language. Programs that 
currently run in an interactive mode can easily be converted to use 
FORMS. 

FCMIS allows cataloging and maintenance of form definitions avail^le 
within the computer system. To facilitate use within an applications 
program, all form definitions reside within a centralized directory in 
the system. This directory, under control of the system administrator, 
may be easily changed, allowing the addition, modification, or deletion 
of form definitions. 

FCMiS is device independent. There may be any mix of terminals 
attached to the Prime computer vAiich, so long as they contain seme 
basic properties discussed later in this dociment, may be used with the 
FORMS system. Terminal configuration is governed by a control file in 
the centralized FORMS directory. This file is read by FORMS at 
run-time to determine vAiich device driver to use, depending on this 
user 's terminal type . This means that multiple terminal types may be 
driven by the same amplications program without change. Certain 
terminal types are supported by FCRMS as released by Prime. Siould the 
user have another terminal capable of supporting FORMS, all that he 
need do is write a low-level device driver for the terminal and 
incorporate it into the FORMS run-time library. 



RELATED DOCIMENTS 

The following listed documents may provide useful supplemental 
information to the reader of this user Qjide. 



Document Title Order No. 

FRIWOB Interactive User Guide MAN 2602 

Primes File System user Guide MAN 2604 

Program Developnent Software User Guide MAN 1879 
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SYSTEM CONCEPTS 



1.1 Form Definition 

All applications progran/POBMS data transfer is handled through 
input/output statements in the host language. This means that the user 
must "tell" FOPMS the format of the input/output data that is going to 
be transferred from and to the amplications program. This definition, 
known as the data stream descriptor , serves two primary functions. 
First, it defines the location of each data itoii, called a fi eld, 
within the input/output record (s) . Second, it defines the length of 
each field. Optionally, it can include justification and validation 
parameters. 

The progranraer must then define the format of the data as it is to 
appear on the input/output device. This definition, known as the 
device format descriptor , describes the position of the data in terms 
of line/column coordinates, field length, justification, and optional 
display attributes. Display attributes include: 

. write enable/write protect (terminal) 

. blink (terminal) 

. reverse video (terminal) 

. not displayed { terminal/hard-copy) 

. underline (hard-copy) 

The data stream descriptor serves as an interlude between the 
applications program and the device format descriptor. One stream 
descriptor is majped to one format descriptor, vAiich may contain format 
definitions for several devices (e.g., a terminal and the line 
printer) . When requesting a certain form, the applications program 
names (in a FOE^S cotsnand) the data stream descriptor, v*iich in turn 
contains the nane of the format descriptor to be used. Ihis run-time 
binding among the applications program, data stream, sn6 format 
descriptors allows the user to modify one of the descriptors without 
necessarily having to change, recompile, or reload the applications 
program or the other descriptor. For example, should the user wish to 
change the position of a field in the device format, he need recompile 
only the device format and replace the existing descriptor with the new 
one in the PCX^S catalog. 

Within a device format descriptor, each field v*ich is to contain data 
from the applications program is assigned a unique 1-8 character name. 
Stream descriptor fields map data from the applications program to 
these fields. The format descriptor maps the data received from the 
stream descriptor to a defined position on the input/output device. 

A block diagram showing data flow from the applications pMTogram to the 
inpxjt device might look like this: 
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To summarize, the data stream descriptor separates the user's 
input/output record into fields, vvhich are then mapped onto fields in 
the device format descriptor, ihe device format descriptor defines the 
location, length, and attributes of the data on the input/output 
device. It is interesting to note that on input the Scnie mapping is 
used as for output - from the stream descriptor to the format 
descriptor. No "backwards" mapping exists; the data flow is simply 
reversed. 



1.2 Applications Programming with FORMS 

A unique advantage of FORMS over other transaction-oriented processing 
systems is that it allows the user to program in standard languages 
such as COBO, and FORTRAN; no non-standard processing language exists. 
Ccmmands are issued to the FCa^MS run-time package as output records 
fron the afplications program, ttitil a FQEMS ccnmand is issued, all 
input/output is processed normally, using the standard I/O drivers 
resident in the Fortran library (FTOLIB) . When a Kms command is 
issued, it is trapped and processed by the run-time package. The 
run-time package also traps and processes all data I/O requests from 
the applications program vdien a form is being processed {is invoked) . 

The method of data transfer using POEMS is no different from that used 
with normal input/output. In FORTRAN, for example, one would still 
write to the terminal (logical unit 1) or line printer (logical unit 4) 
according to a PC»MAT statemoit. In CCBOL, a file would be selected 
and assigned to the TERMINAL for a user-terminal form. Because of 
compatibility problems between FORMS and CCBOL, a new device type, 
called CFFLINE-PRINTER, was added to print a form ai the line jm: inter; 
this device type is now valid in a SELECT/ASSIGN statemait. 

When designing the input and output record formats for the aK>lications 
program (and hence, the strean descriptor) , the user must be careful 
not to exceed the default FCfSPRAN I/O buffer si2e of 132 characters. 
Should be choose to define his own I/O buffer and reset the record-size 
table entry for a particular device (namely, the terminal or printer) 
with the ATTESEV sifcroutine, he is warned that the absolute maximum 
record size that FORMS is able to handle is 160 characters. If the 
form contains more than 132 or 160 characters, or if the pcograraner 
deems it convaiient to break the data up into smaller records, a 
facility exists for writing or reading the form in "pieces". This 
facility, known as a substream definition, allows the progratraner to 
transit: the form to and from the aj^lications program in multiple 
records. It is described in detail later in this document. 
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SECTIOJ 2 
FOMS SYSTEM COMPONENTS 



2.1 Forms Definition Language 

The Foms Definition Language (FDL) translates the user's form 
definition files into binary control block files. Porm definition 
files, v*iich are prepared with the Priroe text editor (ED) ,- describe the 
form in the FDL language described later in this docutient. Ihe binary 
control block files emitted by FDL are placed in the central POIWS 
directory by the system administrator using the Forms Mministrative 
Processor. Tliese definitions are now availctole for use in an 
applications program. FDL optionally emits a listing file containing 
the user's source text listing, error codes and explanations (if any), 
and data formats as FDL perceives (from the user 's form definition) 
they should "look" at run-time. 

FDL statements, syntax, and usage are described later in this docunent. 

2.2 Forms Admin ist r a t i ye Processor 

■flie Forms Administrative Package (FAP) is a utility program \i^ich 
allows the system administrator to manipulate and catalog the forms 
definitions within the system. Also, it allows him to change the 
terminal configuration tables vAien terminals are ^ded to/removed from 
the syston. The basic functions provided by FAP are: 

o Create POraiS directory 

o A3d/replace form descriptions 

o Purge form descriptions 

o List catalog of form descriptions 

o Modify/list terminal ccaifiguration table 

FAP COTiroands and syntax are described later in this docunent. 

2.3 FORMS Run-time Package 

The FORMS Run-time Package is a collection of si±»routines v*iich is 
loaded as a library with the applications program. These subroutines 
perform all run-time functions, including forms lookup, buffer 
managemait, data manipulation, and input-output control. 

The FORMS Run-Time Package must be loaded iiranediately before the 
FCHORAN library, as it contains replacemoits for some IOCS tables 
defined in FTNLIB (and VFTMB) . A typical load sequence for a COBOL 
program v*iich uses FORMS and KI/DA might look like this: 



June 1977 



SECTiai 2 IDR3040 



OK, HILOAD 

GO 

$ COMMON 160000 (load conmon below 160000) 

$ I/aAD B__USRH?G (user 's OCBOL program) 

$ AU 40 (use autanatic Linkbase generation) 

$ LIBRARY OOBKID (OCBOL library with KI/EA) 

$ LIBRARY RFQRMS (64R mode FORMS library) 

$ LIBRARY (FORTRAN library) 

LC 

$ SAVE *USRPRG 

$ QUIT 

OK, 



1V)0 FORMS libraries exist: one for 64R mode (called "RPOKMS") , and one 
for 64V mode (called "VFORMS") . In addition, a template ccmmand file 
exists for building a shared-jxrocedure version of FORMS (for the Prime 
400 only) . These are discussed in detail later in the documoit. 

All FORMS Riffi-Time Package libraries use OOMMOJ initialization via 
FORTRAN "BliXK DATA". This requires the user to place the COMMON area 
out of the area used by the loader. Where it normally resides, when 
loading the library in 64R mode. Note that this does not hold true in 
64V mode, as CCffffON does not overlay the segmented loader (SEG) . 

Although it resides in the library as one file, the rui-tiroe package is 
made up of three separate parts, described below. 



2.3.1 Run-Time Package Proper 

The Run-Time Package Proper is the control portion of the run-time 
package. It processes all FOPMS corranands issued by the applications 
program, as well as all input/output data. This package contains the 
two routines that directly control the input and output of forms, as 
well as routines for form initialization, data transfer, text 
justification, validation, etc. 



2.3.2 Buffer Pool Manager 

the Buffer Pool Manager controls all form lookup and retrieval at 
run-time. Ihis package is called by the run-time package proper to 
perform three functions: form lookup, form definition retrieval, and 
form termination. Ihis package controls a buffer pool capable of 
holding multiple form definitions in either a single-user or 
shared-procedure environment. When a form definition is requested and 
the buffer pool becomes full, the pool manager writes least recently 
used form definitions to a temporary file and reads in the requested 
form. This "rollout" function is performed to preveit having to lookup 
the form definition again, \s*iich could be a lengthy process if there 
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are several hundred forms in the system. 



2.3.3 Input-Output System 

•Hie Input-Output System (lOS) is the collection of device drivers vAiich 
control all devices supported by the FCPfiS system. Any user-written 
device drivers are incorporated into this package. The lOS also 
contains replacemaits for the write-ASCII and rea3-ASCII tables (WAIBL 
and RATBL) in the Fortran Library IOCS. These tables cause calls to 
the write-ASCII (WRASC) subroutine for the terminal and line-printer 
and call to the read-ASCII stbroutine (REftSC) for the terminal to be 
trapped and pcocessed by a high-level POEMS sitiroutine. If a form is 
invoked on the givai device, the data is processed by PCKMS; if not, 
the call is reflected by FORMS to the standard I/O driver for the 
device (O$AA01, I$AA12, and O$AL06/04, respectively) . Note that all 
input/output (i.e., READ and WRITE) statements in FCS^TRAN, OBOL, and 
RPG-II generate calls to RDftSC and WRASC, respectively. 
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SECTION 3 
FORMS DEFINITION LANGUAGE 



3.1 General Syntax 

FDL supports a free-format input line, much like the Prime Macro 
Assembler (I*1A) . 

All form descriptor, substrean, and field names must start in the first 
character position of the line and must be followed by at least one 
space. Descriptor statements may start anyvAiere after colunn 1, and 
may occupy columns 2 through 72. Colunns 73 through 80 are ignored. 
Items in the input line may be separated by either a space or a ccrana, 
unless otherwise noted. lower case characters are mapped to upper 
case, with the exception of characters in a text string (enclosed 
within single quotes) . 

arould an input record contain too many characters to fit on one line, 
the progranmer may continue his source text by placing a semicolon (;) 
as the last character of the line to be cc»itinued. Note that input 
items (words, text strings, etc.) may not be split across two lines. 
There is no limit to the nunber of continuation lines in a source 
record; there is, however, a 240-character limit per record. 

If the first character of a line is an asterisk, that line is treated 
as a comment, listed in the output file and ignored. If the first 
character is a single qirate ( ') , the line is treated as a ccranent, but 
causes an eject in the listing and beccsnss the new page header. 

In addition to full line ccmnents (lines beginning with an asterisk or 
single quote), in-line commoits are also suf^rted. In-line ccninents 
are preceded by a fore-slash and asterisk ('/*') and followed by an 
asterisk and a for e-sla^ ('*/')• Should the progranmier place the 
in-line ccranent as the last item an the line, the terminating 
characters ('*/') maybe omitted. Note that, unlike POaSTRAN, in-line 
ccmnents may not occur within an item (eg, in the middle of a name or 
text string) . 
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Exainples ; 

* THIS IS A COMMENT LINE 

' THIS WILL CAUSE A PAGE-EJECT AND WILL BECOME THE NEW HEADER 
LftBEL FIEID ABC, I£NGrH 6 /* THIS IS AN IN-LINE CCMMENT 
LABEL FIELD ABC, /*THIS TOO IS AN IN-LINE COMMENT*/ LENGTH 6 

NAME FIELD 'POOR SC(»E AND SEVEN YEARS AGO... ' ; 
POSITION (10,10) PROTECT /* CONTINUATION LINE 

3.2 Naming Conventions 

•Hie rules for naming form descriptors, fields, substreams, etc. are as 
follows : 

o Name length: 1-8 characters 

o First character must be alphabetic 

o Permitted characters: A-Z, 0-9 

Examples ; 

Permitted Not Permitted why 

SHIPPORM GAZORKLEFORM name too long 

P0RM5 5P0RM bad 1st character (5) 

AMTOWED CWED$ illegal character ($) 

3.3 Form Description Structure 

The following diagrams represent the various form definition structures 
for both the stream descriptor and format desciptor. 
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Stream Descriptor 



Streem descriptor header Stream descriptor header 

Siijstream descriptor header 



Field definitions -or- 

Field definitions 



Stream descriptor terminator 

Substream descriptor terminator 

Substream descriptor header 



Field definitions 



Substream descriptor terminator 
Stream descriptor terminator 



Format Descriptor 

Format descriptor header 
Device block 1 header 



Field definitions 



Device block 1 terminator 
Device block n header 



Field definitions 



Device block n terminator 
Format descriptor terminator 
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3.4 Descriptor/Block Delimiter Statements 



3.4.1 The STREAM Statement 



This statemait is used to define the beginning of a data stream 
descriptor ccaitrol block. The name of the stream descriptor must 
appear starting in the left margin (colunn 1) and must ccxiform to the 
rules specified above. 



3.4.1.1 FORMftT Parameter (optional) 

This parameter names the FX3RMAT control block to be used with this 
stream descriptor. If it is c»nitted, the POKMAT descriptor is assuned 
to be the sane name as the STREAM descriptor. Note that two modules by 
the same 8-character name but of different types (such as a stream and 
format descriptor) may coexist in the PC»MS catalog. 



Exanples ; 

TAXFOm STREAM 

SHIPFORM STREAM, FOmNT SCREENl 

3.4.2 The EtfD STREAM Statement 

Itiis statemait terminates a data stream descriptor. It must be the 
last statement in the stream descriptor. 

Example ; 

END STREAM 

3.4.3 The SUBSTREAM Statement 

This statemait defines CHie input or output record within a stream 
definition. It gives the capability of multiple input and/or output 
records (streans) under one stream descriptor. An optional name is 
permitted starting in the left margin (colunn 1). If present, the 
applications program can position directly to this svfcstream instead of 
sequentially reading or writing multiple records to access or display a 
certain piece of data (see run-time package command description) . 

If this feature is to be used, no field definitions may reside outside 
of a substream block. Any fields that do are flagged as errors by FDL. 
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Exatiij-'.LcSi 



SUBSTREM 
INHDATA SUBSTREAM 

3»4.4 The END SUBSTREAM Stateinent 

This statanait is used to define the end of a substream block. For 
each SUBSTREAM statement, there must be a corresponding END SUBSTREAM 
statemoit. Substr earns cannot be nested. 

Eatairple ; 

END SUBSTREAM 

3.4.5 The FORMAT Statement 

This statement defines the beginning of a format descriptor control 
block. The name of the format descriptor must appear starting at the 
left margin (coluim 1) . Note that this does not start a device format 
descriptor; it only identifies the format for vAiich the succeding 
device descriptors will be included. This statement must be followed 
by one or more device descriptors (see below) . 

Example : 

OREEM-RY FORMAT 



3.4.6 The END FORMAT Statement 

This statemoit terminates a format descriptor. It must be the last 
statement in the descriptor. 



Exaitple ; 

END FCKMAT 
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3.4.7 The DEVICE Statement 



This statement defines the beginning of a device descriptor. it must 
occur withm a a format descriptor, but outside of any other device 
descriptor (i.e., after a FORMAT or END DEVICE statement) , and must be 
followed by a 1-8 character device name. 

All hard-copy devices (except user terminals) have hard-wired device 
names. At this release, the only hard-wired device name is "PRIOTER" 
for the off-line (spooled) line printer. All device names for 
terminals are installation-dependent. 

Exanples ; 

DEVICE VISTAR3 
DEVICE PRINTER 



3.4.8 The END DEVICE Statement 

This statenent terminates a device descriptor block. It must be the 

SAm^^'^^^^u ^" ^^ ^^^^^ descriptor and must occur before an END 
FXDRMAT or another DEVICE statement. 



Example ; 

END DEVICE 

3.5 Stream Descriptor FIELD Statement 

rhe FIEID statement in the stream descriptor serves two primary 
purposes First, as previously discussed, it defines the position of 
tne field and its length m the user 's input and/or output record 
Secondly, it maps this field onto a field in the corresponding device 
format descriptor. 



The FIEID statement also can perform several supplemental functions. 
Instead of processing data from an applications program output record, 
fields can output predefined (literal) data or special systejJi 
information data (such as time, date, user-name, etc.) , which is 
processed entirely by the FORMS run-time package. On input nS only 
mter^?f ^'f "'" ^^'" ''T' ^" input de^ce, but ^ p?^'efS 
beiS Sky! °'' ^ ^^"""^ '" ^^ ^^^ °^ ^ '^^i^e fiei<3 

Should the programmer desire, he can declare certain fields to be input 
only and/or certain fields to be output only (i.e., fields that occur 
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in either t±ie input or output record, but not both) . In most cases, 
the default is input-output. 

Every direct, output-literal, or input/empty-conditional field (see 
below) has a name associated with it. Normally, this is the name of 
than mapped-to field in the device format descriptor. The progrananer 
can, however, override this by placing a name starting in the left 
margin of the FIEDD statemait. Display attributes of a field may be 
modified by the applications program at run-time by referring to the 
field by its stream descriptor field name in a FORMS command. Note 
that the applications program never "talks" to the device format 
descriptor directly; it always coimunicates through the stream 
descriptor. This makes the device format fully invisible and therefore 
fully independent of the applications program. 

The statement must be followed by a moping or literal ^deification. 
The following is a list of possible specification types: 

Direct ; the most coasaan specification. It maps (1:1) the strean 
cJeicriptor field to a named device format descriptor field. 

^deification: 

FIEID device-field-name 

In pu t-Li t era l: identifies the field to be input-cxily (it is ignored 
on an output request) . The literal data is returned to the 
applications jMrogram as part of the input record, just as though 
it had been read from the device. A name is not permitted on a 
field with input-literal specification; it does not map to a 
device format field and therefore has no attributes which can be 
modified. 

Specification: 

FIEID 'text string' 



tpu' 



_ ^ output-literal field maps predefined data (a 

i'ter'al' text string) to a field in the device format descriptor; 
it does not process data from the output record of the 
applications program. The OUTEUT parameter (see below) is 
required v*ien this construction is used, as the 

In put/ Bjt p t yK^ondi ti o n raajping uses the sane type of 
spec ificat ion . 

I^aecification: 

FIELD (device-field-name, 'text string'), OOTKIT 

Input/Eirpty-CcMyj it icaial ; This input-only field functions the same 
as a Direct input-only field with one exception. If the data in 
the device field is all blaiks (i.e., if the field is empty), the 
literal string is returned to the applications program instead of 
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the blank input data. The INPUT parameter (see below) must be 
specified, as the Output-Literal mapping uses the same type of 
specification. 



Specification: 



FIELD (device-field-name, 'text string'), INPUT 



Filler ; This identifies this field as being a dunmy field. It is 
used only to fill a gap in the input or output record. Ihe 
LENGTH paraneter (see below) is required v*ien this constriction 
is used. A field name is not permitted, as no majping to a 
device field is done. 



deification: 



FIELD FILIER, I£NGTH n 



System Information Field ; A system information field causes system- 

' " or user-dependent data, such as time of day, date, user login 

name, etc. to be majped to a device format field as if it were a 

piece of output data. Note that this has no effect on either 

input or output records. 

System information field names and formats are as follows: 



DATEl: 


date, YY/MfVt>D 


[8 characters] 


nATE2: 


date, DD-M^w-yy 


[9 characters] 


DATES: 


date, MH/DDAY 


[8 characters] 


DATE4: 


date, DD.MM.YY 


[8 characters] 


TIMEl: 


time, HH:MM 


[5 characters] 


TIME2: 


time, HH:MM AM/PM 


[8 characters] 


USERNAME: 


user login name, XXXXXX 


[6 characters] 


USEKNCM: 


user nutiber, NN 


[2 characters] 


FORMNAME: 


form name, XXXXXXXX 


[8 characters] 


Specification: 







FIELD ld€vice-field-nane,sys- info-field-name) 



It»e following parameters are posit ion- independent. 
anyvAiere after the mapping or literal specification. 



They may occur 



3.5.1 LEbKSTH Parameter 

Ttiis parameter defines the length of the field. It must be followed by 
an integer nunber greater than zero, which represents the field length, 
in characters. 
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Usage: 



Mapping Type 


Reinarks 


Direct 


Required 


Input-literal 


Optional - if omitted, defaults to text 




string length; if supplied, text string 




is padded/truncated as required to meet 




given length 


Output-literal 


Same as input-literal 


Empty-cond it ional 


Same as input-literal 


Filler 


Required 


System- info 


Ignored 



3.5.2 JUSTIFY Parameter 

This defines the justification for the input and/or output 
must be followed by one of the following four options: 

o NCWE specifies no justification 

o LEFT the field is left-justified, right-padded 

o RIGHT the field is right-justified, left-padded 

o CENTER the field is centered 



field. It 



Note that 'JUSTIFY NONE' 
JUSTIFY parameter at all. 



has the sane effect as not specifying the 



If justification is specifics on both the stream descriptor and format 
descriptor fields, it is justified as per the stream descriptor field 
specification on input and as per the format descriptor field on 
output . 



Usage: 




Mapping Type 


Remarks 


Direct 


Optional 


Input-literal 


Optional 


Output-literal 


Optional 


Empty-cond it ional 


Optional 


Filler 


Ignored 


System- info 


Ignored 
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3.5.3 INPUT, (XJTPtJT, and INPUT-OUTPUT Parameters 

These parameters, which form a mutually exclusive trio, define in v^i^at 
mode(s) this field should be processed. If INPUT is specified, the 
field is only processed on input; if CXJTPUT is specified, it is only 
processed on output; if INPUT-OUTPUT is specified (guess what), it is 
processed on both. Note that y*ien a field is "not processed", it is 
ignored completely. 

Usage : 

Mapping Type Remarks 

Direct Optional; default is INPUT-CSJTPUT 

Input-literal Default to INPUT, if specified, must 

be INPUT 

Output-literal ^ftast be specified as OUTPUT 

Empty-conditional Must be specified as INPUT 

Filler Default to INPUT-OUTHJT 

system- info Ignored 



3.5.4 VALIDATE Paraneter 

Itiis optional parameter defines input validation of a field. It must 
be followed by one or more validation masks, enclosed in single quotes 
and optionally separated by the word 'OR'. 

V*ien a field with a validation specification is transferred to the 
user's input record at run-time, the data is checked against the 
validation mask (s) . If it fails all tests, the rest of the input 
record is processed and control is passed to the error return if 
supplied, else to the normal return. The applications program may then 
interrogate the FORMS run-time package to determine vAiich field (s) 
failed the validation tests and vAiich fields passed. 

A validation mask consists of a string of characters, each defining a 
certain criterion for each character in the field. Ihe following is a 
list of validation mask characters and their meanings: 
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Mask Character 



Validation Criteria 



y 
A 
X 

• 

/ 

B 
$ 



N 
F 
U 
P 
Z 



Nuneric (0-S) 

AlE*iabetic (A-Z, a-z) 

Al£*ianuneric (0-9, A-Z, a-z) 

Period 

Fore-slash 

Space (blank) 

Dollar sign 

Dash 

Any character 

Nun«ric character (0-9, +, -, or blank) 

Floating nuneric (0-9, +, -, ., blank) 

Uhsigned integer (0-9, blank)^ 

Personal name (A-Z, a-z, ., ', or blank) 

Alphabetic character or space 



Usage: 

Mapping Type Remarks 

Direct Optional 

Input-literal Ignored 

Output-literal Ignored 
Einpty-conditional Optional 

Filler Ignored 

System- info Ignored 



3.5.5 FIX, NOFIX parameters 

«hen a field with one or more validation masks fails to meet any of the 
specified validation criteria, the user has the option of forcing the 
operator to correct the data before FORMS allows the ajplications 
programmer to see it. 

If FIX is specified, the data must pass one or more of the suK>lied 
validation tests before it is returned to the ajplication program. If 
NOFIX is specified, the data is returned to the program v*iether or not 
it passes any of these validation tests. In most cases, it is much 
more convenient to require the data to be in the proper format vdien it 
reaches the applications program, thus eliminating the task of 
inspecting multiple fields on a character-by-character basis, v*iich may 
be unnatural or impossible in the host langu^e. 
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Usage: 

Ma pping Ty pe 

Direct 

Input-literal 

Output-literal 

Bnpty-cond it ional 

Filler 

System- info 



R gnarks 

Optional 

Ignored 

Igrrared 

Optional 

Ignored 

Ignored 



3.5.6 START Parameter 

Tliis parameter allows the prograraner to position the input and/or 
output character pointer to a givai character within the record. It is 
equivalent to *T' format in a PC»TRAN FORMAT statemoit. START allows 
overlapping of input/output fields, a function not available with the 
'Filler' map specificaticMi, v*iich only allows forward positioning. 

The word START must be followed by an integer nunber, vAiich represents 
the new absolute position of the character pointer. 

Warning: if START is specified in an input-only record, the character 
pointer gets reset for the input record but not for the output record. 
The inverse is true for output-only records. Ihis is reflected in the 
Input and Output Stream Descriptors generated by FDL if A register bit 
6 ( '2000) is set on entry. 



Usage: 




Mapping Type 


Remarks 


Direct 

Input-literal 

Output-literal 

Empty-conditional 

Filler 

System- info 


Cpticmal 
Cptional 
Cptional 
Optional 
Optional 
Ignored 


Examples: 




* DIRECT MAPPING 


FIE ID 


IDNIM, I£NC3TH 5 



INPUT LITERAL, START IN COUMN 30 

FIEIB 'LITERAL INPUT STRING', START 30 

OUTPUT LITERAL 

FIELD (HEADER, 'HEADER TEXT ') , OUrRJT 
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INPUT/EMPTY CCMDITIONAL, OVERRIDE IBFAULT LENGTH 

FJEID (EMPLNAME, "m NAME SKXIIFIED') , lENGTH 40 ; 
INFJT 

FILI£R 

FIEID FILIER, LENGTH 4 

SYSTEM INFO^MATIOa FIELD 

FIELD (0OTDATE,EATE3) 

INPOT FIEID WITH mLIEftTION, JUSTIFICATIC» 
FIEID AGE, LENGIH 3, JUSTIFY RIGffT ; 
VALIDATE '999', INPUT 



3.6 Device Fonnat Descriptor FIELD Statement 

The FIEID statement in the device format descriptor defines the 
position of a data itan on the input/output device. There are two 
types of device descriptor field statements: 

Mapp ed : this type of field is maj^jed from a streem descriptor 
tield. All mapped fields must contain a 1-8 character field 
name starting in the left margin. Note that any fields in the 
stream descriptor that are mapped to non-existent fields in the 
device descriptor are ignored. -Ihe same is true for mapped 
fields in the device descriptor that are not "mapped to" in the 
stream descriptor by either a direct, output-literal, or 
input/empty-cond it ional field . 

Literal ; this type of field contains literal data specified in 
the field definition. It does not have a name, as no mapping 
may be done fran a stream descriptor field. The literal must 
immediately follow the word FIEID and must be enclosed within 
single quotes. 



The following parameters may follow the FIELD statement in a maj^jed 
field and the literal gaecification in a literal field. They are all 
non-positional; i.e., they may occur anywtiere in the field definition. 
Note that all parameters apply to both the majped and literal device 
descriptor field types. All parameters are optional unless otherwise 
noted . 



3 .6 .1 LENCTH P arane ter 

This parameter defines the ler^th of the field as it is to appear of 
the device. It must be followed by an integer number greater than 
zero, v*iich represents the field length in characters. This paraneter 
is required on mapped fields and optional on literal fields. If 
cwiitted, the field length is assui^ to be the length of the literal 
string. Note that the length of a field in the stream descriptor may 
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be different frcsn the length of a field in the device format 
descriptor. The stream field defines the length in the input/output 
record of the applications program and the device format field length 
defines the length of the field on the input/output device. If they 
differ, the data is truncated or padded accordingly. 

3.6.2 POSITIO] Parameter 

This parameter defines the absolute position of the field on the 
input/output device in terms of column/line (/page) coordinates. It 
must be followed by either two or three numbers, enclosed within 
parenthesis and separated by coimas. The first two numbers represent 
the colunn and line (x & y) coordinates of the field. The optional 
third number represents the physical device page on yiiich the field 
resides. If the page number is emitted, it is assuned to be 1. The 
POSITION parameter is mandatory on both mapped and literal fields. 



3.6.3 JUSTIFY Parameter 

This parameter defines the justification of the field on input or 
output. Refer to the description of the JISTIFY parameter in the 
strean descriptor FIELD description for information on the argunents. 
This parameter is optional on both ma^^ed and literal fields and is 
defaulted to JUSTIFY NONE if not specified. 



3.6.4 Attribute Parameters 

The following eight parameters are used to set the display attributes 
v*ien a data field is output to a device. Note that if a device does 
not suE^rt a certain feature, such as reverse video or blink, the 
attribute is ignored at run-time. Note that a word in square brackets 
following the attribute name means that it is synonymous with the 
preceding attribute (eg., ENABIfi is synonymous with NOFROTBCT) . 

3.6.4.1 NOPROTECT [ENABLE] Parameter 

This paraneter, which is mutually exclusive with HKJTECT, declares this 
field to be write-enabled upon display to the user terminal. When 
displayed on the line printer the field is underlined. 



3.6.4.2 PROTECT Parameter 

This parameter declares that this field is to be displayed 
write-jarotected v*ien output to the user terminal. When output to the 
line printer, it is displayed normally (not urx3erlined) . If both 
PROTECT and NOPROTECT are not specified, the default is H?DTECT. 
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3.6.4 .3 BLINK Parameter 

This parameter declares this field to be blinked v^ien displayed on the 
terminal. It has no effect in a device descriptor for the printer. 



3.6.4.4 NOBLINK Parameter 

This parameter declares that this field is not blinked v*ien displayed 
to the user terminal. If both BLINK and NCBLINK are not specified, the 
default is NOBLINK. 



3.6.4.5 REVERSE VIDEO Parameter 

This parameter causes the field to be displayed in reverse video vAien 
output to the user manual. It has no effect v*jen output is to the line 
printer. 



3.6.4.6 NORMAL VIDEO Parameter 

Ihis parameter declares the field to be displayed in normal (not 
reverse!) video v*ien output. If both the REVERSE VIDED and NOEMAL 
VIDEO parameters are emitted, the default is N0K4AL VLIMO, 



3.6.4.7 NODISPLAY [HOLD] Parameter 

This parameter causes this field not to be displayed vdien the form is 
output. It is valid on all terminal and line printer device types. 



3.6.4.8 DISPLAY [FREE] Parameter 

Ttiis attribute causes this field to be displayed v*ien the form is 
output to either the terminal or the line printer. If both the DISELAY 
and NODISPLAY paraneters are not specified, the default is DISHAY. 



E xam pl e s; 

* MAPPED FIELD, NOT WRITE-PRDTECTED 

INVNUM FIELD POSITION (70,2), LENGTH 6, NOEfWDTECT 

* LITERAL FIELD 

FIELD 'Literal String Test', POSITION (1,4) ; 
REVERSE VIDEO 
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3.7 Pr<x|ranniing Aids 



Following is a list of statements designed to assist the prograniner in 
form definition. At present they include a macro capability and 
iterative field generation. 



3.7.1 The DEFINE [DEF] Statement 

This statement allows the progrananer to define a macro. At present, a 
macro cOTisists simply of one text item replacing another iton or text 
string. Future plans call for implementation of macro arguments. 

A EEFINE (or EEF) Statement must be preceded by the name of the macro, 
starting in the left margin. The statement ncane must be followed by 
one or more spaces, and then by the macro text. 

Whenever the macro name is encountered as a single item within an input 
line (not in a literal text string) , the macro name is replaced by the 
givai definition. Because FDL is a one-pass processor, a macro must be 
defined before it is used. 

Macro definitions are not retained between form definitions; i.e., 
they are 'erased' after each END STREAM and END FORMAT statement. They 
are, however, retained across device block definitions. 



Examples ; 



FID DEFINE FIELD 

I£N raiFINE LENGTH 

POS DEFINE POSITION 

DIX DEFINE 5 

DIY DEFINE 10 

* 

* FIEID DEFINITION USING ABOVE MACRO DEFINITIONS 

DATAl FID, POS (D1X,D1Y) , I£N 10 

* 

* NOTE THAT THIS HAS THE SAME FUNCTION AS: 
DATAl FIEID, POSITIOSI (5,10), DSNGTH 10 



3.7.2 Iterative Field Generation 

This feature of FDL allows the programmer to generate multiple blocks 
of field statemaits with only one block definition. Fields to be 
gaierated in this manner must be enclosed within REPEAT and END REKAT 
statements (see below) . 

Iterative field generation is permitted in both stream descriptor and 
device format descriptor definitions. In both strean and device format 
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descriptors, a two-digit iteration number is appended to any field 
names found in the left margin. If the field name is seven or eight 
characters, it is truncated to six characters to permit this iteration 
number to be appended. The same is true for device format ("mapped 
to") field names encountered in direct, output-literal, and 
inpjt/onpty-conditional stream descriptor fields. 



3.7.2.1 The REPEAT Statement 

This statanent defines the beginning of an iterative field generation 
(REEEAT) block. It must be followed by an integer nunber, greater than 
zero, v*iich represents the number of iterations to make through the 
following field definitions. The iteration counter is initially set to 
one and is incremented by one each pass through the REHAT block. V4ien 
the counter exceeds the specified repeat count, the statement 
iiranediately following the END REPEAT (see below) is processed. 

Only FIELD statements are permitted within a REHIAT block, 

3.7.2.2 The END REPEAT Statement 

This statement terminates a REPEAT block. For each REIB^T statotient, 
there must be one END REKlAT statement. REEEAT blocks may not be 
nested . 

3.7.2.3 Relative POSITICa^ Parameter Specification 

A device format descriptor field may specify relative positioning v*ien 
defined within a EEIEAT block. This allows the prograiraner to define 
such fields in a repeat block without having than overlay one another 
on the I/O device. 

Itelative positionir^ is specified by placing a plus or minus sign 
iitimediately preceding the line ary3/or column definition in the P0SITIC9J 
paraneter. The absolute line or column number is formed by adding or 
si±)tracting the current iteration number to or from the specified 
offset . 



Example : 



* THIS BLOCK WILL BE REKATED 3 TIMES 

REPEAT 3 

LASTIW FIEID LENGTH 20, POSITION (10, +7) 

FRSTNM FIELD LENGTH 10, POSITION (3 5, +7) 

MIDDIN FIEID LENGTH 1, POSITION (50, +7) 

END REPEAT 
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* 
* 

* NOTE 
* 


THAT THIS HAS THE SAME FUNCTION AS: 


lAsrmei 


FIELD 


LENGTH 20, 


POSITION 


(10,8) 


FRSTI»101 


FIEID 


LENGTH 10, 


POSITION 


(35,8) 


MIDDIN01 


FIEID 


LENGTH 1, 


POSITIOSI 


(50,8) 


IASTM402 


FIELD 


LENGTH 20, 


POSITION 


(10,9) 


FRSTNM02 


FIELD 


LENGTH 10, 


POSITION 


(35,9) 


MIEOIN02 


FIELD 


LENGTH 1, 


POSITION 


(50,9) 


IASTM403 


FIELD 


LENGTH 20, 


POSITION 


(10,10) 


FRSTKM03 


FIELD 


LENGTH 10, 


POSITION 


(35,10) 


MIDDIN03 


FIELD 


LENGTH 1, 


POSITION 


(50,10) 



3.8 Listing Control Statements 



3.8.1 The NOLIST Statement 

This statanent disables the listing of all FDL statements, macro and 
repeat block expansions, except for those containing errors. It is 
overridden only by the 'FULL LIST' option bit in the A Kegister on 
entry to FDL. 



3.8.2 The LIST Statement 

This statement enables the listing of FDL statements, macro and repeat 
block expansions, after being disabled by the NOLIST statem«it. It is 
overridden by the 'ERRORS ONLY* option bit in the A Register on entry 
to FDL. ^ 



3.8.3 The EJECT statement 

This statemait causes the listing to eject to the top of a new page 
when the listing file is output (spooled) to the line printer, ihe old 
page header is retained. For a new page header, refer to the section 
entitled General Syntax'. Note that this statement has no effect if 
the listing is turned off (via the 'ERRORS ONLY' option bit or "iJOLIST' 
statement) . 

3.9 Alternate Input File ($INSERT) Coimiand 

A method exists whereby the programmer can 'insert' the contents of 
another FDL source file into his standard input file at compile time. 
This IS acccmplished by placing the ccranand '$INSERT' in the left 
margin of the input line, followed by at least one space and the tree 
name of the disk file to be inserted. When the end-of-file is reacted 
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on the alternate input file, FDL returns to the line following the 
$INSEET in the main input file. Note that the main input file is not 
modified. Input flow is merely switched from the main to the alternate 
input file temporarily. 

The $INSEFT cotimand provides a convenient method of reading a canmon 
macro definition file into an FDL source file. 



Example ; 

$iNSERr <scnwii> foiws> machds 



3.10 Using FDL 

FDL is invoked by typing the command 'FDL ' following the 'OK, ' prompt 
issued by ERIMOS. The caimand is followed by the name of the input 
file (if input is from disk), followed by an optional A Register 
setting . 

The A Register option bits currently implanoited are: 

iO!MiE|F{ TiRiXiSiSiSiLiL|L!BiB!B ! 
1 16 

= List anitted object text 

M = Extended macro listing 

E = Errors-only listing 

F = Full list (override NOLIST pseudo-op) 

T = List errors on terminal 

R = List I/O stream format arrf device format 

X = Expanded REH^T block listing 

S = Source (input) device: 

> none 

1 > terminal 

2 > paper tape 

3 > card reader 

4 > undefined 

5 > magtape 

6 > mdefined 

7 > disk file 

L = list (output) device; same values as 'S' 
B = binary (output) device; same values as 'S ' 

Itie default A Register setting is '7777. 

The rules regarding input and output (source, listing, and binary) file 
usage that apply to FORTRAN and EMA also apply to FDL. If the inpjt 
file is open on entry to FDL, the file is read from the current file 
pointer to end of file and not closed oh exit. If the input file is 
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not open, FDL opens the file named in the cotnmand line. If an output 
(listing or binary) file is open on entry, data is written to that file 
starting at the current file pointer. The file is truncated but not 
closed upon completion of the compilation. If the output file is not 
opened on entry, an output file name is generated by aj^nding the 
first four characters of the source file name to the characters 'L ' in 
the case of a listing file and 'B ' in the case of a binary file. ~TSiis 
file is truncated and closed upon"completion of the compilation. The 
file units corresponding to source, listing, and binary files are 1, 2, 
and 3, respectively. 

After each form definition is processed, FDL types the nunber of 
errors, followed by the FDL revision number. A sample interaction 
between the user and the computer for an FDL compilation might look 
like this: 

OK, CLOSE 12 3 (ensure no file units open) 

OK, FDL FCKMl 1/47777 (St *d Options + full macro listing) 

GO 

0000 ERRORS (FDL, REV 01) 

ERROR C#01 (0006) LEN EEFIN LENCJTH 
**** STATEMENT NOT RECOGNIZED. 

0001 ERRORS (FDL, REV 01) 

OK, SPOOL L FORMl 



3.11 FDL Error Messages 

The Forms Management System generates a variety of different types of 
error codes. All errors generated by the FDL compiler are of the form: 

C#nn text message 

Where *nn* represents a unique two-digit error code for each type of 
error. The message printed is a one-line diagnostic of why the error 
occurred and possibly v*»at action has been taken by the compiler. 
Following is a table which elaborates on the error codes generated by 
FDL. 



C#00 BAD STATEMENT FORMAT. 

The contents of the statement field is not an alphanumeric text 
item. This statement is ignored. 

C#01 STATEMESIT NOT RECOGNIZED. 

The statement field does not contain a valid FDL statonent. 
This line is ignored. 
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C#02 ARGUMENT REQUIRED. 

An argument is required following the statement name. This 
statement is ignored » 

C#03 ARGUMENT TOO LCM3. 

A text itan exceeds 80 characters. This statement is ignored. 

C#04 MULTiay MFINED MACRO. 

A macro by the same name already exists. This statement is 
ignored and the previous macro definition is retained. 

C#05 BAD NAME FIELD. 

The name field (starting in the left margin) contains an illegal 
character. This statement is ignored. 

C#06 NAME REQUIRED. 

A name must be present in the name field (starting in the left 
margin) . This error is generally issued because a maKJed field 
in the device format descriptor is missing a name. This 
statement is ignored. 

C#07 STATEMENT FIELD IS BLANK. 

A name was present in the nane field, but no statemoit followed. 
Ihis statement is ignored. 

C#08 NO END STATEMa^T; END ASSUMED. 

An end-of-file was encountered viiile processing a stream or 
format descriptor. An END STREAM or END FORMAT is assuned here. 

C#09 NOT PROCESSING STREAM ffiSCRIPIOR. 

An EWD STREM or SUBSTREAM statonent was issued and a stream 
descriptor is not being processed. This statement is ignored. 

C#10 END SUBSTREAM MISSING. IT IS ASSUMED HERE. 

An END STREAM statonent was issued while a sifcstream block was 
being processed. An END SUBSTREAM is assuned prior to the END 
STREAM. 

C#ll NOT PROCESSING SUBSTREAM. 

An EJJD SUBSTREAM statement was issued v^iile not processing a 
substream block. This statement is ignored. 

C#12 NOT PROCESSDTC FORMAT. 

An END FCMIAT or DEVICE statement was issued while not 
processing a FC^MAT block. This .statanent is ignored. 

C#13 END mVLCE MISSING. IT IS ASSUMED HERE. 

An END FORMAT was encountered while still processing a device 
block. An END DEVICE is generated prior to the END FORMAT. 

C#14 NOT fRDCESSING DEVICE BLOCK. 

A FIELD definition was issued after a FORMAT statement, but 
before a ffiVICE block was started. This statement is ignored. 



- 21 June 1977 



SECTION 3 IDR3040 



C#15 END STATEMENT MISSING; IT IS ASSUMED HERE. 

A stream or format descriptor was not terminated before another 
was started. An END STREAM or END FCMiAT is generated prior to 
this statement. 

C#17 BAD PARAMETER. 

This indicates that an unrecognizable parameter was present on a 
FIELD statement. The entire field definition is ignored. 

C#18 INVALID FCM1AT NAME. 

The name supplied following the FORMAT parameter in the STREM 
statement does not conform to the naming conventions discussed 
earlier in this document. This statement is ignored. 

C#19 NAME NOT JEI^ITTED. 

A name was present on a statement which does not permit one. 
This usually means that a literal field in the device format 
descriptor contains a name. 

C#21 ALREADY PROCESSING SUBSTRERM. 

A SUBSTREAM Statement was issued v*iile already processing a 
sibstream block. This statement is ignored. 

C#22 VALIDATION STRIMS MISSING. 

The VALIDATE parameter is present on a stream descriptor field, 
but is not folloirfed by any validation masks. The entire FIELD 
statement is ignored. 

C#23 BAD JUSTIFY PARAMETER. 

The JIBTIFY parameter in the field descriptor is not followed by 
one of its four valid argunents. The field statement is 
ignored . 

C#24 MAPPING SPECIFICATION REQUIRED. 

A Stream field descriptor is not followed by a mapping 
specification. The FIELD statement is ignored. 

C#25 BAD MAPPING SPE)CIFICATIC»I. 

A Stream field descriptor is not followed by a valid mapping 
specification. The field definition is ignored. 

C#26 BAD LENGTH SPECIFICATION. 

The LENGTH parameter in either stream or device descriptor is 
not followed by a valid nunneric argument. The field definition 
is ignored. 

C#27 BAD INEUT-OOTEOT SPECIFICATION. 

An INPUT, OUTPUT, or INPUT-OUTPUT parameter has been misused. 
This usually means that INPUT-OUTPUT or OUTPUT has been issued 
v*ien processing an input-literal field. This statement is 
ignored . 
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C#28 MAP FIEID NAME TOO LCM3. 

The "map to" field name in a stream descriptor field is longer 
than eight characters. Ihis field is ignored. 

C#29 AIPEADY PROCESSING DEVICE BLOCK. 

A DEVICE statement has been issued v*iile already processing a 
device block. This statement is ignored. 

C#30 SYNTAX ERROR. 

This general error message is issued v^iienever two items in a 
field definition are separated by an illegal character. This 
statemoit is ignored. 

C#31 BAD POSITION PARAMETER. 

The POSITION parameter in a device format descriptor field is 
not followed by a valid argunent. This statemoit is ignored. 

C#32 POSITION OUT OF RANGE. 

One or more of the arguments in the POSITION parameter is/are 
zero. This statemait is ignored. 

C#33 LENGTH PARAMETER MISSING. 

The length declaration for a stream or device format descriptor 
field is required but not supplied. This field is ignored. 

C#34 POSITION PARAMETER MISSING. 

The POSITICW paraneter in a device descriptor field is not 
supplied. This field is ignored. 

C#35 UNRECOGNIZED SYSTESl INFCSMATIOJ FIEID NAME. 

The name specified in a system information field is 
unrecognized. This statemoit is ignored, 

C#36 INPUT/OUTPUT SHCIFICATION NOT EERMITTED. 

An INPUT, OUTPUT, or INTOT-OUTHJT specification was included on 
a system information field definition. This statonent is 
ignored . 

C#37 UNRECOGNIZED PARAMETER. 
See C#17. 

C#38 NOT raOCESSING STREA^VODEVICE FORMAT BLOCK. 

A field definition has been issued outside of a stream or device 
format descriptor. Ihis and all other field declarations up to 
the next STREAM, FORMAT, or KIVICE statement are ignored. Note 
that this error message is issued only once per violation. 

C#39 MULTIPLY DEFINED SYMBOL. 

A field name has been redefined within the same stream or device 
descriptor. This field is processed normally, but will produce 
undesired results at rim-time. 
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C#40 BAD START SPECIFICATION. 

The argument following the START specification in the stream 
field definition is not nuneric and greater than zero. 

C#41 ILLEGAL MACPO ARGUMENT SPECIFIER. 

The item following the argument reference symbol (#) is not 
nunneric and greater than zero. Note that this error code should 
not be enitted by FDL at this release. It is generated by a 
macro pre-scanner that is already incorporated into the 
compiler . 

C#42 EOF ENCOUNTERED BEFCKE END EEFEAT. 

An end-of-file was encountered on the input file before a repeat 
block was terminated. This usually causes abortion of the 
compilation. 

C#43 END REPEAT MISSING - REPEAT BLOCK IGNORED. 

An END statemait was encountered **iile processing a REPEAT 
block. The entire repeat block is ignored and the END statanent 
processed . 

C#44 STATEMENT NOT ALLOWED WITHIN REPEAT BDXK. 

A Statement other than a FIEID statement was found within a 
REPEAT block. The statement is ignored; processing of the 
REIEAT block continues. 

C#45 INHJT/OUTPUT SPECIFICATION REQUIRED. 

A input/empty-condition or output-literal field did not contain 
a recyjired INPUT or OUTPUT statement. 

C#46 INCONSISTENT SUBSTREAM USAGE. 

A field definitic»i appears outside of a substream block in a 
multi-record stream definition -or- the user has attempted to 
start a substrean definition ^en previously defined fields do 
not reside within a substreaw. Ihis error message is only 
issued cMice per stream descriptor. 



3.12 FDL Tenporary Files 

In the course of translating the source file to the binary, FDL may 
create any of the following four teaporary files: 

Name Format Ccaitents 

Error definitions (*) 

Current repeat block 

Input stream/substream definition 

Output strearo/siiDStream format 

Device format m^ 

Note that all files are created and deleted by FDL; the only way that 
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ASCII 


RFffuu 


ASCII 


INftuu 


ASCII 


OU##uu 


ASCII/ 




binary 
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the user can "see" these is if he quits (BREAK key or control/p) out of 
the translator. 

* Ihe 'uu' in the file name denotes the current user # - this permits 
multiple FDL translations simultaneously within the sane directory. 



- 25 June 1977 



IDR3040 ADMINISTRATIVE PRCX:ESS0R 



SECTION 4 
ruwno hEpiINxSTFAxxvei ci\\j^Ei)ij^ii 

4.1 Centralized FXDRKS Directory Information 

The FORMS directory, called 'F0I»4S*', may be located on any disk in the 
conputer syston. It is strongly reconmended, however, that due to the 
time elanent involved in accessing ranote files, the directory be 
located on a local disk as oppo^d to a disk started ranotely across 
the network. 

Ihe FORMS UFD, v*iich may be created by FAP, contains tv?o files. "Ihe 
first is the FORMS segment directory, called 'FMS.**' v^ich contains 
all form definitions and internal directories used by FAP and the 
run-time package. This segment directory must be created using the FAP 
CREATE command, ihe second file, called 'DCF.AS', is the FWMS syston 
device control file. It contains information for each device 
configured into the syston. This file is created by the systan 
administrator using the standard text editor. The format of the DCF is 
discussed in the section entitled "Device Mapping Scheme". 



4.2 FAP Commands 

•ttie following is a description of the nine comnands suRwrted by FAP. 
All comnand names may be abbreviated to three characters. 



4.2.1 The CREATE Coimiand 

The CREATE (or CREATE DIRECTORY) cormand allows the syston 
administrator to create a skeleton FORMS directory. The CREATE command 
processor first checks to see if the FOFMS UFD (FORMS*) exists on any 
started-up disk. If not, it inquires as to v*iich disk the UFD is to be 
created on and requests the MFD owner password for the disk. Once 
created, or if already present, FAP creates a skeleton segment 
directory, with an empty catalog and terminal configuration block. Ihe 
user may now insert form definitions into the directory. 

If the FORMS UFD is already present on the system, FAP creates the 
segment directroy and prints the message 'DIRECTORY CREATED'. If the 
UFD is not a first-level directory (directly under an MFD) on any 
started-up disk on the systen, FAP requests a disk volume-ID on v*iich 
the UFD is to be created. The user must then enter the volune-ID 
(DSKRAT name) of the pack/partition v*iich will contain the FORMS 
directory. FAP then asks the user for the MFD owner password on this 
volune. Once this has been si^pl led, the FORMS UFD and segment 
directory are created. Note that the CREATE command will produce an 
error if both the FORMS UFD and segment directory exist. The segment 
directory must be TREQELeted with FtfTIL before it can be CREATE 'd. 
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All error messages produced by the O^EATE commarK3 processor are 
self-explanatory . 

Following is an example of CREATE command dialogue. Note that all 
underlined data is entered by the user. 

OK, FAP 
GO 

FCRMS ADMINISTRATIVE PROCESSOR, REV 12.0-P 

* CREATE 

UFD "FORMS*" DOES NOT EXIST. 

SHALL I CREATE IT? YES 

ENTER DISK VOUJME-ID: TS/A 

ENTER OWNER PASSWORD (IT WON '^ ECHO) : ABCXYZ 

THIS MFD IS FULL, TRY AGAIN. 

ENTER DISK VOLUME-ID: SOFTWR 

ENTER OWNER PASSWORD (ITTKSR "T ECHO) : XXXXXX 

DIRECTORY CREATED. 



On any input request within the CREATE dialogue, the user may type 
control/c to abort creation and return to the PAP command level . 



4.2.2 The ADD Command 

This command allows the addition of form definitions to the FORMS 
catalog. The name of the binary form definition file, generated by the 
FDL translator, must follow the ADD command. This file name usually 
starts with *B^'. Note that one binary file may contain more than one 
form def initionT eg . if there was one stream descriptor and three 
device format descriptors in the source file, the binary file contains 
those four form definitions. FAP considers each device descriptor 
under one format descriptor to be a separate form. 

The ADD command adds only new modules to the FORMS catalog; any 
attempt to redefine a form already residing in the FORMS catalog with 
the ADD command causes the new form definition to be ignored and a 
message printed on the user terminal to that effect. 

The input (binary) file name may optionally be followed by the word 
LIST or LIST UPDATES. If this is specified, all form definitions added 
to the FORMS directory are listed by name on the terminal. 

When the entire binary file has been processed, the nunber of modules 
added and ignored (due to duplicate entries) is printed. 

Siould the message 'WARNING! "form-name" CONTAINS ERRORS' be printed, 
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it denotes that this stream or format descriptor contains FDL errors. 
The user should fix the source file and recompile it with FDL. This 
binary form definition will probably generate undesirable results at 
run-time. 



Exanples ; 

* M)D B-FM03 

01 DEFINITION ADDED. 

* ADD B-FM04 LIST 

DEDUCT STR V00 ADEED 

DEDUCT FMT VISTAR3 V00 ADDED 
DEDUCT FMT PRINTER V00 ADDED 

03 CEFINITKae AIXJED. 



4.2.3 The REPLACE Comtiand 

This command functions the same as the AEC conmand, but causes any form 
definitions in the PCMIS catalog vtiich are redefined in the input 
(binary) file to be replaced with the new definition. Any form 
definitions in the binary file that are not defined in the catalog are 
added. 



Examples ; 

* REPLACE B-F019 

02 DEFINTIONS REPLACED. 

* REPLACE B-F020 

01" DEt'INITICN ADDED 03 OEFINITIC^B REELACED. 



4.2.4 Ttie PURGE Comnand 

This command purges form definitions from the FORMS catalog. The 
command must be followed by a form name specification (see below) , 
Oiich designates v*iat form definition (s) is/are to be purged. It may 
also be followed by the word LIST or LIST UPDATES, v*iich will cause all 
purged forms to be listed by name on the user terminal. 
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4.2.4.1 Form Name Specification 

The form name specification designates the form definitions to vtiich 
this ccmmand applies. Both PURGE and LIST commands use this option. 

The form name specification is enclosed within parentheses and has the 
following formats: 

form-name 
form-name .type 
form-name .type :dev ice 

type = STR for stream descriptor 
FMT for format descriptor 

If only the form-name is specified, this caimand relates to all forms 
with the givai neme, any type and any device (if format) . If the 
second specification is used, the command relates to all forms of the 
given name arx3 type. If the type is FMT, it relates to all device 
descriptors within the format definition. If the third type of 
specification is used, the command relates to the one definition that 
contains the same name, type, and device. Note that this construction 
should only be used on format descriptors (there is no device 
definition for a stream descriptor) . 

If any item in the form name specifier (form-name, type, or device) is 
specified as an asterisk (*) or the word ANY, this will cause no check 
to be made on this item when scanning the FORMS catalog. 

Vp to 20 form names may be specified within the parentheses, separated 
by ccamias. 



Examples ; 

(TAXPORM) 



(TAXFOEM.STR) 
(TAXPOEM . FMT ; miNTER) 

(*.*:YISTAR3) 

(*.STR) 

(TAXFOFM,SHIIfORM) 



All forms of name 'TAXFORM', 
any type, any device 

TAXFORM, stream definition 

PRINTER format definition for 
TAXFORM 

All VISTAR3 device format def 's 

All stream 'descriptors 

All forms with names TAXFORM 
or SHIPFORM, any type, any 
device 
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HJRGE Exanples ; 

* PURGE (FM0020) 

01 DEFINITION PLT.aiD. 

* PURGE (FM0021,FM0022,FM0023rFM0024) LIST 



FM0021 


STK 


V02 


PURGED 


FM0022 


STR 


V00 


PURGED 


FM0024 


STR 


V00 


PURGED 


FM0024 


FMT PRINTER 


V00 


PURGED 


FM0024 


FMT VISTAR3 


V00 


PURGED 


05 DEFINITIONS PURGED. 
* 







4.2.5 The LIST Comnand 

This command causes all or part of the FORMS catalog to be listed by 
name and type, this may be followed by a form name specifier (see 
above) to selectively list a part of the catalog. If the form name 
specifier if omitted, the entire catalog is listed. If the jiirase FII£ 
<filename> or CN FILE <filename> is included, the catalog listing is 
output to the specified file. If the ptvo ase Oti TERMINAL is specified, 
or if the (M FILE specifier is omitted, the listing is written to the 
user terminal. 

The information listed in the catalog listing includes: 

o Form-name, type, and device (if any) 
o VfersicKi nunber 

o Creation, last access, last modified dates 
(file output only) 



E xamples ; 
* LIST 

FORMS DIRECTORY LISTING ON WEDNESDAY, JANUARY 12, 1977 AT 9:45 PM 
NAME TYPE DEVICE VER 



HDRF01 


STR 




V02 


HDRF01 


FMT 


VISTAR3 


V00 


HDRF02 


STR 




V00 


HDRF02 


FMT 


VISTAR3 


V00 


04 ENTRIES. 








* LIST (HDRF01) ON FILE CATLOG 
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4.2.6 The QUIT Coirmand 

Itie QUIT ccxranand causes FAP to exit and return to FRIMOS ccnmand level, 
FAP may be re-entered by typing the START (S) caranand. 



Examp le ; 

* QUIT 
OK, 

4.2.7 The JOURNAL Coirmand 

The JOURNAL caranand allows the user to log his transactions with the 
FDRMS catalog in an ASCII file which can be spooled to the line 
printer. All AEC, REfLACE, PURGE, and TCB (see below) transactions are 
recorded in the JOURNAL file. 

This cOTimand may be used to enable or disable the logging function. To 

disable it, the command JOURNAL or JOURNAL STOP may be issued. To 

enable it, the command JOURNAL <filename> or JOURNAL START ON 
<filename> may be issued. 



Example ; 



* JOURNAL LOG000 

* ADD B-F01 

08 raiSCRIPTIONS ADDED. 

* JOURNAL STOP 

* """■""" 



4.2.8 The TCB Command 

The TCB connand modifies the terminal configuration block table. The 
TCB is a 64 by 4 word file v*iich contains the terminal type for each 
FORMS user on the (local) computer system. This file, contained in the 
FORMS segment directory, is used in conjuiction with the device control 
file (DCF) at run-time to select the terminal device driver for a given 
FORMS user. Both TCB and DCF files are explained in detail in the 
section enitiled "Device Mapping Scheme". 

The TCB cocrmand may be followed by the word LIST to dump the contents 
of the TCB on the user terminal. Cptionally, LIST may be followed by a 
file name. If this is the case, the contents of the TCB will be dumped 
to the specified file. 
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To racx3ify the TCB, the command may optionally be followed by one of 
three noise words to reflect the type of operation being performed: 
AIX>, CHANGE, or EftOP. This must then be followed by the user number 
for which this operation applies, from 1 to 64. If the user wishes to 
drop the current TCB entry for this user, he may terminate the ccmnand 
line by typing RETURN. If the user attonpts to drop an non-existent 
entry, FAP prints a warning message and returns to command mode. If he 
wishes to add or change the terminal type, he must type the 1-8 
character terminal name. If the specified user already had an entry, 
the name of the old terminal t^)e is printed on the terminal. 



Exanples ; 

* TCB LIST 

TERMINAL CONFIGURATION ON WEDNESDAY, JANUARY 12, 1977 AT 10:03 PM 
LEER TERMINAL 



4 


VISTAR3 


12 


Z9003 


13 


VISTAR3 


20 


Z9003 



* TCB 3 VISTAR3 (set user 3 = VISTAR3) 

* TCB 12 B500 (change user 12 to B500) 
KAS Z9003. 

* TCB 13 (drop user 13 's entry) 

* TCB LIST 

TERMINAL CaiFIGURATi™ (M WEMffiSDAY, JANUARY 12, 1977 AT 10:04 IM 
USER TERMINAL 



3 VISTAR3 

4 VISTAR3 
12 B500 

20 Z9003 
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4.2.9 The GENERATE Corrmand 

This coiranand goierates three $INSEPT files for the run-time device 
interlude subroutine. 

The files generated are as follows: 

o EEVEXr - external declaration statements for 

run-tiine device drivers 
o EEVDAC - 64R mode driver dispatch table 
o ffiVIP - 64V mode driver dispatch table 

All three files must reside in the same UFD as the sources for the 
run-time input/output system in order to be assanbled with the I/O 
package. 

The GEhERATE ccnmand should be issued and a new run-time I/O package 
assCTibled each time the device control file (DCF) is modified. 

For more information on the device control file and input/output 
scheme, refer to the section entitled "Device Mapping System". 



4.2.10 UsirKf PAP 

FAP is invoked by typing the comnand 'FAP' following the 'OK, ' prompt 
issued by the operating systan. FAP prints a header line, followed by 
the current revision nut±)er. If bit 1 in the A Register is set v*ien 
FAP is started, all updates to the FORMS directory and terminal 
configuration table are automatically recorded in a file called 
'FAP.UP' in the FORMS control directory. It is strongly reccmnended 
that if this option is to be used all of the time, FAP be RESTCSffi'd and 
SAVE'd with the A Register set appropriately. When this option is 
used, the iX)URNAL command is disabled. 



4.2.11 FAP Error Messages 

Like FDL, all FAP error messages are of the form: 

t#nn text message 

The 't' in the error code represents the error type. At present, there 
are three such types: 

. F - file systeni/ input file/control block error 

. S - syntax error 

. T - TCB or DCF format error 

Ihe 'nn' represents a 2-digit error number, unique for each error 
message generated by FAP. 

Following is a list of error messages and explanantions: 
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F#00 CDNTRQL BLOCK UFD DOES NOT EXIST. 

An operation other than CREATE was attempted and the FORMS UFD 
( 'FORMS*') does not exist on the system. 

F#01 CONTROL BLXK DIRECTORY DOES ICT EXIST. 

An operation other than CREATE was attempted and the FORMS 
segment directory ( 'FMS.** ') does not exist within the FORMS 
UFD. 

F#04 INPUT FILE IS EMPTY. 

The input file specified in an ADD or REILACE coranand is empty. 

F#05 PREMATURE EOF. 

An EOF was encountered on the input file in an Aia) or REPLACE 
ccaranand before the end-of-data record. The module is deleted 
fran the control directory. This is usually caused by the user 
depressing the BREAK key in the middle of an FDL ccxnpilation. 

F#06 FILE DOES NOT EXIST. 

The input file specified in an AEO or REPLACE canmand does not 
exist in the current UFD. 

F#07 BAD INPUT FILE. 

Ihe input file specified in an ADD or REPLACE ccmtiand is not a 
valid FDL binary file. No action is taken with this file. 

S#00 FILE NAME REQUIRED. 

An ADD or REPLM:e canmand was issued, but no file name followed. 
The ccranand is ignored. 

S#01 BAD FORM NAME SPECIFIER. 

The form name specifier contained a syntax error. This coranand 
is ignored. 

S#02 BAD ARGUMENT. 

Qie of the parameters in the command line was not recognized. 
The ccrranand is ignored. 

S#03 BAD TYPE. 

The form name specifier contained a type declaration other than 
STR (stream) or FMT (format). This command is ignored. 

S#04 NO FORM NAME SPECIFIED. 

A PURGE coranand was issued without a required form name 
specifier. The PURGE canmand is ignored. 

S#05 MISSING AROMENT. 

The TCB cotmand was issued without any following user nunber. 
The ccnrnand is ignored. 

S#06 BAD USER NIJ4BER. 
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Ihe user number specified in the TCB command is not an integer 
number greater than zero. Ihe TCB ccamiand is ignored. 

S#07 BAD TERMINAL NAME. 

The user attempted to assign the name 'PRINTER* as a terminal 
type in a TCB command. This is not permitted and the TCB 
coimiand is ignored. 

T#00 DCF DEVICE INTERLUDE FIEID ERROR. 

The device interlude number field in the given DCF entry is not 
nuneric or greater than zero. The DCF must be edited and 
corrected before continuing. 

T#01 DCF EEVICE NAME FIELD ERROR. 

Ohe device name field in the given DCF entry contains an illegal 
character or is empty. The DCF must be edited and corrected 
before continuing. 

T#02 DCF EEVICE ABBREVIATION FIELD EWXM. 

Ihe device abbreviation field in the given DCF entry is empty or 
contains a space or illegal character. Ihe DCF must be edited 
and corrected before continuing. 

T#03 TCB LINE/COLUMN FIEID EBBOR, 

The line or colum specification field in the given DCF entry is 
empty, contains a non-numeric value, or is less than 1. The DCF 
must be edited and corrected before continuing. 

T#04 MAX DEVICE NUMBER EXCEEDED IN DCF. 

Ihe DCF contains an entry with a device interlude nunber greater 
than 50. This error is issued fron the GENERATE command only. 
Only 50(!) devices may be in use at one time. 

T#05 EEVICE COSITROL FILE EMPTY. 

The DCF is empty and the user issued a TCB or (UNERATE command. 

T#06 TERMINAL UNDEFINED. 

The terminal type specified in the TCB conmand is not present in 

the DCF. 
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SECTION 5 
FQPMS RUN-TIME PACKAGE 



5.1 General Information 

■Hie FORMS run-time package invisibly performs all forms lookup, buffer 
managoiiQit, data manipulation, and input/output for the applications 
program. 

Before the applications program can input and output data f ran/ to a 
form, he must first request the run-time pack^e to retrieve the form 
definition from the POEMS catalog. Vvhen he is through with the form, 
he must release it; i.e., inform the run-time package that it is no 
longer needed. This function is mandatory in a shared procedure 
environmait, as idle form definitions can take up unnecessary table 
space in the buffer pool manager, of v*iich a finite amount is 
avail^le. 

As previously stated, the two devices available to the user at this 
release are the user terminal and the offline (spooled) line-printer. 
Tt> use a form with the terminal, the user reads and writes to logical 
unit 1 in Fortran, or reads and writes data in a file selected and 
assigned to the TERMINAL in Oobol. For the line printer, the user 
writes to logical unit 4 in Fortran or writes a record in a file 
selected and assigned to the OFFLINE-PRINTER in Gobol. Note that both 
devices may be used simultaneously with the forms system. 

5.1.1 Device I/O Processing 

The EX3RMS run-time system handles all device input/output, but it may 
be convaiient for the applications prograiraner to know vAien and how 
physical device I/O is going to take place. A form is initially output 
to a device vAien the entire stream descriptor has been output by the 
applications program. Subsequent stream descriptor output causes the 
form to be modified if on the user terminal (only those fields that are 
changed are actually modified on the CRT). Cn the line-printer, each 
time the end of stream descriptor is encountered, a new form is output. 

Ftor READ statemoits, on a single record form (no substream 
definitions) , each READ causes the device driver to wait for and 
process input from the terminal. The input data is then transferred to 
the applications program. In a form with multiple siiDStream 
definitions, the initial READ causes the device driver to process input 
from the terminal. The data for the first substream definition is then 
transferred to the applications program. Subsequent READS transfer the 
remainder of the data. 
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5.2 ConiTiand Descriptions 

All comnands to the PCa^MS run-time systan are issued via output records 
frOTi the applications program. FCM4S catmands described below must be 
immediately preceded by tvo hash marks ( '## ') . 

5.2.1 The INVOKE Coimiand 

This command invokes the usage of a specific form by the amplications 
program. The stream descriptor nane is specified as an argunent, and 
must be separated fran the coimand by at least one space. 

The INVOKE command processor retrieves both stream and device format 
definitions frcati the FORMS catalog through the buffer pool manner. It 
then initializes an input/output data area, known as 'lOLST', which is 
used to pass both data and control information (such as position, 
attributes, etc.) to and from the device driver by the run-time 
package proper. Note that if a form was already invoked on this 
device, the old form is released before the requested form is 
retrieved. if the requested form is the same form that was previously 
invoked, the form is only initialized, that is, the attributes are 
reset to their original states and data is reset to spaces. 

All errors (such as 'FOMl NOT FXXJND ') usually cause the progran to 
abort and print a suitable error message on the user terminal. 

All future input/output requests are trapped and processed by the 
run- time system as data for the form in use. Usage of the form is 
terminated by a RELEASE command (see below) . 

Example ; 

##INVOKE SHIPFORM 



5.2.2 The RELEASE Coninand 

This coninand informs the form system that the form definition for this 
device is no longer needed. Future input and output data will be 
processed by the standard device drivers (O$AA01 and I$AA12 for the 
terminal; O$AL06/04 for the line-printer). 

Examp le; 

##RELEASE 
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5.2.3 The STAT Coimiand 

Status of all in^Hit data on the next READ statement (s) . 

Ihe status is returned in the form of a two-digit number for each 
input/empty-conditional or direct field that is not declared as 
output-only. It is not returned for input-literal fields. The 
two-digit nunber returned can represent one of the following three 
conditions: 

Value Condition 

-1 The data failed all validation tests. 

00 No validation specified for this field. 

>0 This is the nunber of the first validation 
mask that the data passed. Validation 
masks are nunbered in the order in v*iich 
they appear in the field definition. 

The validation status is returned in the same manner that data is 
returned on a raM) statement. If there are multiple substrecsn 
definitions, the user must do multiple READs to input the validation 
status for all fields. The STAT canraand causes the next READ statement 
to input the validation status of the first substreem in the stream 
descriptor unless a a]B£,TI®M cartnand is issued before it. The STAT 
function is disabled and normal data input resuned when either the end 
of the stream descriptor is encotntered or a SUBSTREM caisrand is 
issued. 



5.2.4 The SUBSTREAM Comnand 

This conmand sets the next stbstream to be processed on a READ or WRITE 
statement. The substream name must follow the command and be separated 
fran it by at least one space. If the named substream does not exist 
in the stream descriptor, an error message will be generated but the 
program will be allowed to continue. In this case, the next sitostream 
to be processed will be the first one defined in the stream descriptor. 



Exarrgle: 

##SUBSTREAM EMPITlATA 
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5.2.5 The CLEAR Coirmand 

•fliis coirmand clears all unprotected data displayed on the user 
terminal. It also causes all data items marked as unprotected and 
displayed in the input/output list to be reset to spaces. This is a 
fast and convenient method to erase all operator- input data. The other 
way is writing ^>aces into all unprotected fields (sigh!) . 

If this ccsimand is followed by the word 'ALL', the entire display is 
erased. This should only be done before a RELEASE command, else 
catastrophe will certainly strike!! This option was added to allow the 
amplications program to leave the terminal in a *hiinan' state before 
exiting to command level. 



Examples : 

##CLEAR 
##CLEAP ALL 

5.2.6 Attribute Modification Conmands 

The applications program may dynamically change the attributes of a 
device format field by naming its corresponding stream descriptor field 
in one of the eight attribute conmands described below. From one to 
twenty stream descriptor field names may be placed as argunents, each 
separated by at least one space. The attribute change occurs the next 
time the form is output to the device. 



The following table describes each of the eight attribute 
commands and three synonyms. 

CCTimand/Synonym Description 



modification 



PROTECT 

NOPROTECT/ENABLE 

RVIDK) 

NVIDEO 

BLINK 

NOBLINK 

DISPLAY/FREE 

^DDISFLAY/HOLD 



Write-protects field 

Wr ite-enables field 

Field displayed in reverse video 

Field displayed in normal video 

Blinks field when displayed 

Field is not blinked v*ien displayed 

Field is displayed when form is output 

Field is not displayed when form is output 
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Examples ; 

##BLINK ERRMESG 
##RVIIM) BALANCE CREDIT 

5.3 Run-Time Error Handling 

All errors that occur at run-time are recorded in a file in the home 
UFD called 'FMS##E', v*iere the '##' represents the user number. 

The file format is as follows: 

ramddyy hhmm ee error message 

Where 'imiddyy' represents the date (month, day, year), 'hhmm* 
represents the time that the error occurred (hours and minutes after 
midnight, local time), and 'ee' represents the error number. Each 
run-time error condition is assigned a unique error nunber. The 
following is a list of run-time error nunber s, acconpanying diagnostic 
messages, and a brief explanation of why the error occurred. Unless 
otherwise specified, all errors are fatal. 



01 ROLLOOT DIRECTORY FULL (pool manager) 

The FORMS UFD ('FOMS*') is full and the pool manager needs to 
write a form definition to a tonporary file. 

02 ROLLOUT FILE MISSING (pool manager) 

The pool manager cannot locate a file that was tanporarily rolled 
out to the FORMS UFD. This either indicates that a user has 
deleted it, or less likely, that the pool manager is sick, 

03 CSJECT BLOCK TOO LARGE (pool manager) 

A form definition is too large to fit into the entire buffer pool. 
The systons administrator must reconfigure the buffer pool manager 
for a larger buffer pool in order to use this form. 

04 POOL ALLOCATION MAP FULL (pool manager) 

A form definition was requested by the user, but the pool manager 
allocation map cannot hold it. This map is currently configured 
for 60 entries. This error message usually means that applications 
programs have not been RELEASE 'ing form definitions when they are 
through with them. 



05 STREAfVPOPMAT ffiFINITION MISSING (pool manager) 

The user has requested a non-existent stream or format descriptor. 
The name of the requested definition is included in the error 
message. 
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06 USER LOCKED IN POOL MANAGER (pool manager) 

A user became locked in the buffer pool manager. Ihis means that 
the current user was waiting more than 50 time-slices for another 
user to exit it. This was probably caused by the "locked" user 
aborting his program (via BREAK or control/p) v*iile using the pool 
manager. Ihis is an informative message only - it is written to 
the error file but not to the terminal. The current user is 
allowed to continue running and enter the pool manager. 

07 INVALID CALL TO FMS$DV (run- time package) 

The form- initialization processor within the rim-time package 

passed a bad internal unit number to the device translation 

subroutine. Tfliis error should never occur - it indicates that the 
run-time package is sick. 

08 USER DOES NOT HAVE VALID TCB EOTRY (run-time package) 

A user without a TCB entry attempted to invoke a form on the 
terminal. The cure for this error is to run FAP and, using the TCB 
coitmand, insert a valid terminal name in the terminal configuration 
block entry for this user. 

09 DEVICE DOES NOT HAVE DCF ENTRY (run-time package) 

The run-time package could not find a DCF entry for the specified 
device. The system administrator should update the DCF and 
recompile the input/output system. 

10 ILLEGAL CONTROL STATEMENT (run-time package) 

The applications program issued an unrecognized control statenent 
to the run-time package. The statement name is printed in the 
message text. 

11 SUBSTREAM ERROR (run-time package) 

An end-substreani control block was encountered v*iile not processing 
a substream block. This error usually indicates that the rim-time 
package or FDL is sick. 

12 TOO MANY SUBSTREAMS (run-tine package) 

The stream descriptor contained too many substream descriptions. 
At this release, the maximum nun^jer of substr earns permitted under 
one stream descriptor is 30. 

14 I/O LIST OVERFLOW (run-time package) 

The storage required for control and data information for the 
current form exceeds the amount of space available. The cure for 
this error is for the rm-time I/O list to be enlarged. At this 
release, 1000 words are allocated to 'the I/O list. 

15 DCF FORMAT ERRC» (run-time package) 

A format error exists in a DCF field. Ihe user may either inspect 
the DCF or invoke FAP and type the GENERATE camiand to determine 
which field or fields is/are in error. 
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16 SUBSTREAM NOT FOUND (run-time package) 

A SUBSTREAM ccsimand was issued frcan the amplications program, but 
the named substresri does not exist witnin x-hB curren*. Si-rsani 
descriptor. The error is logged in the error file, but the program 
is allowed to continue. The next input or output statement will 
cause the first substream descriptor in the form to be used. 

50 LINE SEQUENCE ERROR (V3$I0) 

■flie Vistar/3 I/O driver found the I/O list to be out of sequence. 
This indicates that the run-time package proper, in particular 
FMS$LK, is sick. 

90 LINE SEOJENCE ERROR (PR$IO) 

The line-printer I/O driver found the I/O list to be out of order. 

See the description for error #50, above. 

91 READ ATTEMPTED FROM PRINTER (PR§IO) 

The user attonpted to read a form from the line-printer. Consider 
yourself suitably scolded! 

92 SPOOL DIRECTORY FULL (PR$IO) 

The RELEASE command issued from the applications program caused the 
line-printer driver to attempt to insert the printer form into the 
spool queiK, however, the spool directory is full. 



5.4 Run-Time System File I/O 

The run-time package (run-time package proper, buffer pool manager, and 
line-printer driver) all use file units 12-16 to perform form 
definition lookup, rollout file I/O, and other associated file syston 
operations. This will not interfere with KI/DA which reserves file 
units 12-15, and the rev-12 file systan bounce package, vAiich uses file 
unit 16. 

For each form definition invoked, FORMS generates a tonporary file in 
the home UFD named 'FMlluu', vAiere: 

'11' represents the internal logical unit #: 

01 = user terminal 

02 = line-printer 
'uu' is the current user # 

Hiese temporary files contain the current form status (iolist and 
related variables) and are "swajped" in and out of memory v^en multiple 
form definitions are in use. They are deleted v*ien the form definition 
is released, and should never be visible to the user. 
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As shipped, FCRMS resides on two directories. The first, called FORMS, 
contains all sources and coranand files to create the FDL translator, 
FAP utility progrem, and 64R and 64V node libraries. The FORMS UFD 
contains the following files and directories: 



File 



T ype 



FDL 


subUFD 


FAP 


subUFD 


RUN 


subUFD 


FMGR 


subUFD 


lOS 


subUFD 


DOC 


subUFD 


C RUB 


coninp 


C'VLIB 


coninp 


INFORMS 


object 


VFOFMS 


object 


MACROS 


insert 


C INST 


coninp 


CJSHAR 


coninp 


C 2010 


coninp 


C 4016 


coininp 


C~LOAD 


cctninp 



D e s c r i p 



t 1 o n 



sources for FDL translator 

sources for FAP utility 

sources for run-time package proper 

sources for buffer pool manager 

sources for input/output systan 

source for this docunnent 

creates 64R mode library from indiv. objects 

creates 64V mode library from indiv. objects 

64R mode PCMIS library 

64V mode PCKMS library 

$INSERT file containing FDL macro definitions 

installs FDL, FAP, and libraries 

template for creating shared procedure 

memory image files 

creates seg 2010 shared procedure 

creates seg 4016 shared procedure (for test) 

template for loading ^ared procedure 

FORMS 



The ^coid directory, called 'FORMS*', ccxitains a skeleton FMS.** 
segment directory and a device control file containing information for 
all devices supported by Prime. 

To install FORMS as shipped, the user need only run the coimand file 
called 'C_INST', which performs the following functions: 

O Copies FORMS>FAP>*FAP to CMI»C0>FAP 

o Copies FORMS>FDL>*FDL to CMDNC0>FDL 

O Copies PORMS>RFORMS to LIB>RPOFMS 

O Copies P0H4S>VP0RMS to LIB>VFOIWS 

It is strcaigly recomiended that the copy of POMIS as shipped be copied 
and saved in case of accidental damage or deletion of the POraiS source 
directory. 
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7.1 Device Mappinig Scheme 

All devices supported by FOE&S are assigned a unique 'logical device 
nimber'. Mien the run-time package wishes to perform some function on 
a device, it calls an interlude subroutine passing the logical device 
nunber as an argument. Ihe interlude subroutine then calls the 
corresponding device driver to perform the specified function. 

FCRMS uses a file known as the device ccaitrol file (DCF) to maintain 
certain information about each device supported by the syston. Ihe 
primary purpose of the DCF is to assign each device name to a logical 
device number. Vben the device name becomes known to the run- time 
package, the DCF is scanned to extract the related logical device 
nunber, thus allowing the run-time package to "ccaraiunicate" with the 
device. 

Ihe device interlude subroutine (DEV$IO) contains a table vAiich points 
to the beginning address for each device driver. It uses the logical 
device nuriDer to index into this table (much like indexing into a 
Fortran array) to select the device driver to be used. Because of this 
relational ip between the DCF and device interlude si±)routine, we can 
ccaiclude that any time the DCF changes, the device address t^le within 
DEV$IO must change accordingly. Ihe PCStflS Administrative Processor 
(FAP) has a facility for generating a new device driver address table 
any time the DCF is updated. Ihe Input/Output Systsn must then be 
rebuilt with the new address table (this process is discussed in detail 
later) . 

So far, we have discussed how the run-time system translates a device 
name into a device driver address. Vfe have not, however, discussed how 
it goes about determining the device name. For the 1 ine-Er inter , IOCS 
logical unit 4, the hard-wired name 'PRINTER' is assigned, after v*iich 
the DCF lookup and subsequent processing described above takes place. 
Ihe terminal, however, involves yet another step. 

Because FORMS permits multiple terminal types, another file, known as 
the terminal configuration block (TCB) is needed. This file assigns a 
terminal type (eight-character name) to each FORMS user on the system. 
The run-time package uses the user nunber, as returned frcm the 
operating system, to index into this file and extract the terminal 
name. After this is done, the DCF lookup and subsecyient processing 
described above takes place. 

the device control file resides in the FORMS UFD ( 'FORMS* ') and is 
called 'DCF. AS'. It is an ASCII file and may be changed with the text 
editor (ED) . The file contains one record for each device st?^rted by 
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The record format is as follows: 

Idn, name, dna, lines, columns 

Idn = logical device nunber 

name = device name, 1-8 characters 

dna = device name abbreviation, see below 

lines = # lines on the device (max Y coordinate) 

colunns = # columns on the device {max X coordinate) 

•file device name abbreviation represents the first two characters of the 
name of the device driver. this must be two characters, the first 
being alphabetic. A space is not permitted, and will yield an error 
from the FAP GEaNERATE parocessor. The full device driver name consists 
of the two-character abbreviation followed by '$10'. For example, the 
line-printer uses the two-character abbreviation 'PR', and hence the 
device driver name is 'PR$IO'. Note that each device name abbreviation 
must be unique. 

The terminal configuration block lives in the FORMS segment directory 
( 'FMS.** ') and may be altered with the TCB ccmmand in FAP. Refer to 
the section entitled 'FORMS Administrative Processor ' for more 
information. 

7.2 User-Written Device Drivers 

Should the user have a terminal not supported by FORMS as released by 
Prime, he may want to write his own device driver. 

7.2.1 Terminal Requirements 

Any terminals to be used with FORMS must have the following 
capabilities: 

o Internally buffered (block transmission) mode 

o Protected fields 

o Absolute cursor positioning 

o Both protected and unprotected data modification 
once displayed 

o Clear entire screen/clear unjxotected data comiands 
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Other features that could be taken advantage of by the FORMS system or 
device driver include: 

o Blink 

o Reverse video 

o Underlining 

o Keyboard lock 

o Input and/or output space compression 

7.2.2 Device Driver Specification 

Device drivers must be named 'XX$I0', v*iere the 'XX' represents the 
tv»-character abbreviation used in the device control file. They have 
the following calling sequence: 

CALL XX$I0 ( function, iolist ) 
Function is one of the following nine function codes: 

1 — Initialize device: Reset all device logic, clear the 

entire screen, and enter block transmission mode (if this 
is a software ftBX:tic«i) . 

2 — Output initial form: Write the contents of the entire I/O 

data list (IOLIST) to the screen. The device driver 
should reset bits 1, 2, 3, arrf 4 of the attribute word for 
each entry and set bit 5 for each field displayed. It 
should not display any fields with the 'NODISPLAY' bit 
(bit 14) set. When the screen has been output, the cursor 
should be positioned to the first write-enabled location 
on the screen. 

3 — Input form: The device driver should wait for the 

operator to fill in the displayed form arK3 process the 
input as it is transmitted from the terminal. As it 
receives the data, the driver is responsible for inserting 
it into data area in each field in the I/O list. Cnly 
fields with the 'DISPLAYED' amA 'ENABUED* bits set in the 
attribute word should be input. It should be noted that 
on a full duplex line, the device driver should disable 
the echo and auto-linefeed generation with a call to 
DUPLX?; this must be restored after the data has been 
input. If possible, a brief prompt message should be 
output in an out-of-the-way place on the screen, informing 
the operator that there is an input request pending. 
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4 — Modify existing form: the device driver must examine each 
entry in the I/O list and tpSate those fields with 
attribute bits 1, 2, or 4 set. Following is the 
reccranaided logic for the modify processor: 

o if data changed, enable/protect changed, or field 
attribute changed bits are all reset, process next 
field, else 

o save current attribute word in a temp and reset bits 
1-4 (data/attributes modified) of the attribute word 
in lOLIST, then 

o extract field length, and x,y coordinates from 
lOLIST, then 

o if the field is currently displayed and "iiODISHAY' 
bit is set, erase this field frcni display and 
process next, else 

o if field is not currently displayed and 'NCDISPIAY' 
bit is reset, display the field according to the 
supplied attributes and x,y coordinates, else 

o if "NODISHiAY' bit is set, ignore this field and 
process next, else 

o if enable/protect changed bit is set and ^secial 
handling is required to acccroodate this change, 
perform this special handling; either way, 

o if attribute changed bit is set, update the field 
using the new attributes and process the next field, 
else 

o update the data and process the next field 

5 — Clear entire screen. 

6 — Clear unprotected data on screen. 

7 — Close device: This function code is used to terminate 

device usage after a RELEASE command and is applicable 
only to the line-printer driver; terminal device 
drivers should ignore this call. 

8 — Correct data: The device driver must scan the I/O list 

for the first field with the 'data- invalid' attribute 
bit set (see below) , position the cursor to the first 
character position of this field, and allow the 
operator to re-enter the data. It is recaimended that 
an error/pTOTipt message be displayed in an 
out-of-the-way place, informing the operator that the 



BEV. 



IDR3040 DEVICE INPUT-OUTPUT SYSTEM 



specified field has failed all validation tests and 
that it must be re-entered. 

9 — Print local: Write the ccaitents of the entire screen 
to the local printer att«:hed to the terminal; this 
feature must be suK»rted by the particular terminal 
hardware in use. The device driver should return to 
the caller v*ien the printer has completed printing. 

lolist is an array that contains the control ard data 
definitions for each field in the form. It contains seven 
header words and at least one data word for each entry. The 
array should be accessed by the device driver using a pointer 
to the beginning of the field (supplied by the run-time 
package) added to an offset. Ihis offset should be specified 
in the form of a PARAMETER 'ed syndbol, as defined below. 

The following PARAMETERS represent e^h of the control words, 
plus the start of the data area. The device driver should be 
oblivious to their actual values, as these may change when new 
control informatiOTi is add3ed. The parameter declarations may 
be made through an $INSERT file called 'lOPARM' in the 
directory containing the source of the I/O system (as released, 
P0RMS>IOS>IOPARM) . 

lOLK — Link to next entry in chain by position; this is 
not used by device drivers. 

lOvp — Stream definition field pointer for this entry; 
this is not used by device drivers. 

IC^ _ Format definition field pointer for this entry; 
this is not used by device drivers. 

lOSZ — Field length, in characters. 

lOAT — Field attributes, as follows: 

Bit Definition 

1 Set by FC8MS if data has changed since last display. 
Reset be device driver viien data has been updated on 
device. 

2 Set by FORMS if enable/protect attribute has changed 
since last display. Reset by device driver vhen 
field has been updated on device. 

3 Set by FORMS if field has failed all supplied 
validation tests. Reset by device driver when field 
has been re-entered from device. 
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4 Set be PCMIS if any field attributes has been 
modified since last display. Reset by device driver 
v*ien field has been updated on device. 

5 Set by device driver if field is currently displayed 
on device. Reset by device driver if field is 
currently not displayed on device (initially reset) . 

13 Set by FORMS if field should be blinked when 
displayed. Reset by FCM4S if field should not be 
blinked when displayed. 

14 Set by FORMS if field should not be displayed or 
should be erased if currently displayed. Reset by 
FCMIS if field should be displayed. 

15 Set by F(»MS if field should be displayed in reverse 
video. Reset by FORMS if field should be displayed 
in normal video. 

16 Set by POEIMS if field stould be write-enabled (not 
protected) . Reset by FORMS if field should be 
write-protected . 

lOYX — line and colunn coordinates: 
. left byte = line # (Y) 
. right byte = column # (X) 

lOPG — physical page #; this is not used by device drivers 

lODA — start of text data; data is in ascii format, packed 
two characters per word, blank filled 



The initialize, clear, close, and print functions (1, 5, 6, 7, and 
9) are all relatively straightforward. These operations do not have 
to process data from the 1/0 list and therefore should assume it to 
be void. 

The output, input, modify, and correct functions (2, 3, 4, and 8) 
all need to traverse the I/O list and process (or at least inspect) 
each field therein. The device driver must depend on the run-time 
system to provide a pointer for the start of each field definition 
in the I/O list. The rim-time package contains two subroutines 
callable by the device driver for suqh a purpose. They are: 
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FMS$RE - Resets the internal (run-time package) field pointer to 
the beginning of the current page. This routine must be 

^CLXJ,€V1 I-* W WAJ^. Jh^>..-«^ a,JX«< JU«M «-r*. waA'w -h^«nW£i^wsw y a.a «^>'%» w f •..i^^^-. — ^ f 

and correct-data function processors. It may be called 
again to reset the pointer to the first field in the 
page v*ien necessary (eg, on an input error) . 

Calling Sequence: 

CALL FMS$RE 

FMS$NF - Returns the pointer to the next field in the I/O list to 
be processed. if the pointer is 0, the end of page or 
end of I/O list has been encountered. Fields are 
returned to the caller in line/column se^ence. 

Calling Sequence: 

CALL FMS$NF ( pointer ) 



Ft)r a sample I/O driver, the reader is referred to the VISTAR3 
device driver in the input/output system source directory. 



7.2.3 Error Message Generation 

The user is allowed to generate run-time error messages from within 
the device driver, should he encounter an error ccaxlition. A 
subroutine called 'RTERR$' exists in the run-time package, which may 
be called to log an error in the error file and set 15) the user's 
error vector. Ihe calling sequence is as follows: 

CALL RrERR$ (enun, text, textsz, name) 

enum = error nunber (see below) 

text = text error message (2 character s/wd) 

textsz = length of 'text ', in characters 

name = routine name (8 characters) or if none 

The user is allowed to use any error nuriDer between 60 and 89, 
inclusive. All others are reserved for future use by Prime. Should 
the user wish to exit to FRIMOS carmand level, he need only call the 
ERRSET subroutine as follows: 

CALL ERRSET (: 100000,0) 

Itiis causes the text message passed as an argument to RTERR? to be 
typed on the user terminal, followed by the 'ER! ' prompt from 
PRIMOS. If the error condition was non-fatal, the device driver 
should not call ERRSET, but rather perform v*iatever error recovery 
is necessary to continue. 
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7.2.4 Installing the Device Driver 

To install a new device driver into the FORMS run-time library, the 
user should follcw the steps outlined below: 

a) Obtain a listing of the device control file and chx)se a free 
logical unit nunber above 10 (the first 10 are reserved by 
Kime) . /^pend an entry to the DCF containing the selected 
logical uiit nunber, device name, first two characters of the 
driver name (ranember, the last three must be '$10'), and the 
dimensions of the device in accordance with the format 
described in the section entitled "Device Majping Scheme", 
above. For example, the Vistar/3 entry, vrfiose logical unit 
nunnber is 3, driver name is 'V3$I0', and dimoisions are 24 by 
80, would look as follows: 

3, VISTAR3, V3, 24, 80 

b) Attach to the directory containing the source for the 
Input/CXitput System and copy into it the source for the device 
driver to be installed. 

c) Edit the C_I0R (64R mode) and C_I0V (64V mode) ccranand files 
and insert al-ine to compile the new device driver after the 
FR$I0 routine. 

d) Run FAR and issue the OENERAIi: ccranand to create the new 
device tables vAiich will include the new driver. 

e) Execute the C_I0R and/or C_I0V command file(s) to create a new 
input/output system. 

f) Attach to the first-level FORMS source directory ('FOMIS') and 
execute the coninand file 'C RFMS' to create a 64R mode library 
and/or C_VFMS to create a 6lV mode library. 

The user may new modify the TCB entries for the users which have 
the new terminal and reload his applications program with the new 
version of the library. It is strongly reconmended that the new 
library not be installed in the lilB' UFD taitil the new device 
driver has been pcov&L\ to work. 

7.3 Prime-Sugplied Device Drivers 

At present, the FORMS syston as released by Prime supports the 
following two device drivers: 

. Offline printer (PRINTER) 

. Vistar/3 (modified) (VISTAR3) 
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7,_3»1 Offline Printer Device Driver 

spool queue. V*ien the INVOKE canmand is issued to the line-printer 
(IOCS logical unit 4) , a file called FR##nn (v*ere 'nn ' represents the 
user nunber) is opened. If it already exists, the file pointer is 
positioned to the end of file, v*iere the new form definition will be 
written. If it does not exist, it is created, after a record is 
written containing the control code for the line-printer to enter 
Fortran forms-control mode. 

When a form is output, one ASCII record is written for each line 
defined in the form. The first line ccaitains a '1' in colutmi 1, vAiich 
cau^s the printer to eject to the top of a new page. Any enabled 
fields are underscored (with the '_' character) . 

Mien the form is released, the file is copied into the spool queue, 
with the appropriate spool file header and file name. It is then 
closed and deleted from the hcane UFD. Note that the ER##nn file should 
never ajpear in the home UFD after the program has been completed; if 
it does, it means that the PRINTER form was not released. 



7. 3. 2 yistar/3 Device Driver 

The Infoton Vistar/3 device driver (V3$I0) is written for a specially 
modified Vistar/3 (with microcode and hardware updates) available 
through Prime. 

•Hie device dim^isions are 24 lines by 80 columns (1920 characters) , all 
of v^ich except the 15 character positions in the lower right of the 
screen are available for use by the amplications program. These 
character positions contain one of the following pranpt or error 
messages from the device driver: 

(spaces) : 

Input not allowed. 

ENTER 

Enter data into unprotected fields on form, 
depress 'XMIT PAGE' key v*ien done. 

ERRCH, ra:-ENTER (blinking) 

A character was lost on the last trananission - 
depress 'XMIT PAGE' key. 

DATA ERRCR (reverse video) 

A field (or fields) does not meet the specified 

validation criteria - the cursor is positioned to 
the first character position of the offending field, 
correct the data and depress the 'XMIT IftCE * key. 
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All unprotected fields are displayed in full - intensity, surrounded by 
square brackets {'['and '] ') . All protected fields are displayed in 
half- intensity. Note that care must be taken to allow for the square 
brackets on unprotected fields v*ien designing the form. 

To operate the Vistar/3 with a progran using P0M4S, the dip-switches in 
the rear of the display must be set as follows: 



EOT character: 


CR 


Mode: 


Block 


Line-speed : 


(User-selectable) 


Sec channel: 


Off 


Parity: 


None 


Pdux/hdux: 


(User-selectable) 


Stop bits: 


Two 


Roll/page: 


Roll 
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* ESFCSm, FORMS, JRW, 76/12/30 stream descriptor definition 

* Employee Status Ftorm Definition - **FOEMS** Danc«istration 

* This form definition is intended for use with 'EMPUPD'. 

* 
* 

* 

* ******************************************* 

* * * 

* * stream definition * 

* * * 

* ******************************************* 

* 

* 

* — ^Macro Definitions File ( POEMS > MACROS ) 

$ INSERT FCRMS>MACRDS 
* 

* 

* — stream definition for employee status form 

* last updated: 30-Dec-76 
* 

estatus stream 
* 

* — header information (name, employee & dept #, marital status) 

header substream 

f name, len 30 
anpn f empn, len 4, jus r, v >J'^ 

f deptn, len 3, jus r, v "hi' 

f marital, len 1, v 'A' or 'B' 

end substream 
* 

* — address, phone nunbers 
addrfone sitostream 

f street, len 30 

f city, len 20 

f state, len 2, v 'AA' or *B 

f zipcode, len 5, v '9' or 'B 



*B' 

0—. • 



f homefone, len 12, v '999-999-9999' or 'B 

f workfone, len 12, output 

f (workfone, '212-587-1234'), len 12, in ; 

V '999-999-9999 'or 'B ' 
f ext, len 3, v '9' or 'B' 
end substrean 
* 

* — start, termination, and return dates 
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dates substream 

f strtdate, len 8, v '99/99/99' or 'B ' 

f terindate, len 8, v '99/99/99' or 'B' 

f retndate, len 8, v '99/99/99' or 'B' 
end substream 

* — work status information 

wstatus substream 

f fullpart, len 1, v 'A' or 'B' 
f permtemp, len 1, v 'A' or 'B' 
f direct, len 1, v 'A' or 'B' 
f vorkstat, len 1, v 'A' or 'B' 

end sttostreatn 

* 

* — job title, code 
jctoinf Slipstream 

f jobtitle, len 20 

f jobcode, len 2 

end substream 
* 

* — salary information 
salryinf substream 

f lastincr, len 8, v '99/99/99' or 'B' 

f amtincr, len 1, v la' 

f perincr, len 3, v "iJ' 

f salary, len 8, v lN' 

f speriod, len 1, v 'A* or 'B' 

end substream 

* — error message facility 
errmesg substream 
error f error, len 30, output 
end substream 

end stream 
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* ESFCRM, FOI*!S, JFW, 76/12/30 fomat descriptor definition 

* 

it 
* 

* ******************************************* 

* * * 

* * format definition * 

* * * 

* ******************************************* 
* 

* 

* — Macro definition file ( POFMS > MACROS ) 

$INSERr FCRMS>MACFOS 



* — device format definition for VISTAIV'3 terminal 

* last i5x3ated: 30-Dec-76 
* 

estatus format 

device viStar3 

* — literal form he^er 

f 'Employee Status Form' pos (32,1) 
* 

* — header line » employee name, id#, dept# 

f 'name' pos (1,3) 
name f len 30, pos (7,3), np 

f 'emp#' pos (47,3) 
empn f len 4, pos (53,3), np 

f 'dept#' pos (68,3) 
deptn f len 3, pos (75,3), np 

* — ^marital information 

f 'marital status' pos (1,5) 
marital f len 1, pos (17,5), np 

f 'S=single, M=OTarried, D=divorced, V^=widowed ' pos (20,5) 

* 

* — address information 

f 'address: street' pos (1,7) 
street f len 30, pos (18,7), np 

f 'city' pos (10,8) 
city f len 20, pos (18,8), np 

f 'state' pos (41,8) 
state f len 2, pos (49,8), np 

f 'zip' pos (54,8) 
zipcode f len 5, pos (60,8), np 

* — telephone numbers,.. 

f 'telephone #i heme' pos (1,10) 
homefone f len 12, pos (20,10), np 

f 'business' pos (35,10) 
workfone f len 12, pos (45,10), np 

f 'extension' pos (60,10) 
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ext f len 3, pos (71,10), np 

* — start date, termination date, return date 

f 'start date ' pos (1,12) 
strtdate f len 8, pes (13,12), np 

f 'term date' pos (24,12) 
termdate f len 8, pos (35,12), np 

f 'return date' pos (46,12) 
retndate f len 8, pos (59,12), np 

* — work status 

f 'status: ' pos (1,14) 
fullpart f len 1, pos (10,14), np 

f 'F=full, P=part', pos (13,14) 
permtemp f len 1, pos (38,14), np 

f 'P=pennanent, T=te!nporary', pos (41,14) 
direct f len 1, pos (10,15), np 

f 'D=direct, I=indirect', pos (13,15) 
workstat f len 1, pos (38,15), np 

f 'A=active, L=leave, T=tenninated ', pos (41,15) 

* — job information 

f 'job title', pos (1,17) 
jobtitle f len 20, pos (12,17), np 

f 'job code', pos (36,17) 
jobcode f len 2, pos (46,17), np 

* — salary information 

f 'date last increase', pos (1,19) 
lastincr f len 8, pos (21,19), np 

f 'amount', pos (33,19) 
amtincr f len 7, pos (41,19) , np 

f 'percent', pos (52,19) 
perincr f len 3, pos (61,19), np 

f 'salary', pos (1,21) 
salary f len 8, pos (9,21), np 
speriod f len 1, pos (25,21), np 

f 'H=hourly, V^^weekly, Y=yearly', pos (28,21) 

* — error message field 

error f len 30, pos (1,24), blink 

* 

end device 
end format 
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SMPI£ FC3RM ISlFINrTICaJ 



(0001) * ESFCeM, FCeMS, JRW, 76/12/30 Stream descriptor definition 

(0002) * Employee Status Form Definition - **FOFMS** Demonstration 

(0003) * This form definition is intended for use with 'EMPUH)'. 
* 

* 
* 

* ***:**********ie***************************** 

It * * 

(0009) * * Stream definition * 

(0010) * * * 

(0011) * ******************************************* 

(0012) * 

(0013) * 

(0014) * — Macro Definitions File ( POIMS > MACROS ) 

(0015) * Start PORMS>MACROS 

(0015) * $INSEPT file for standard syntax abbreviations 



(0004) 
(0005) 
(0006) 
(0007) 
(0008) 



* 
* 



(0015) 
(0015) 

(0015) f def field 

(0015) V def validate 

(0015) len def length 

(0015) pos def position 

(0015) in def input 

(0015) out def output 

(0015) jus def justify 

(0015) r def right 

(0015) 1 def left 

(0015) c def center 

(0015) np def noprotect 

(0015) * 

(0015) * End PORMS>MAa«}S 

(0016) * 

(0017) * 

(0018) * — stream definition for anployee status form 

(0019) * last updated: 30-Dec-76 

(0020) * 

(0021) estatus stream 

(0022) * 

(0023) * — header information (name, empl & dept#, marital status) 

(0024) header substream 

(0025) f name, len 30 

(0026) empn f anpn, len 4, jus r, v "tl' 

(0027) f deptn, len 3, jus r, v ')>*' 

(0028) f marital, len 1, v 'A' or 'B' 

(0029) end substrecsn 

(0030) * 

(0031) * — address, f^Kine nunbers 
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(0032 
(0033 
(0034 
(0035 
(0036 
(0037 
(0038 
(0039 
(0040 
(0041 
(0042 
(0043 
(0044 
(0045 
(0046 
(0047 
(0048 
(0049 
(0050 
(0051 
(0052 
(0053 
(0054 
(0055 
(0056 
(0057 
(0058 
(0059 
(0060 
(0061 
(0062 
(0063 
(0064 
(0065 
(0066 
(0067 
(0068 
(0069 
(0070 
(0071 
(0072 
(0073 
(0074 
(0075 
(0076 
(0077 
(0078 
(0079 
(0080 
(0081 
(0082 



addrfone substream 

f street, len 30 

f city, len 20 

f state, len 2, v 'AA' or Ts' 

f zipcode, len 5, v '9' or 'B' 

* 

f hOTiefone, len 12, v '999-999-9999' or 'B' 

f workf(»ie, len 12, output 

f (workfone, '212-587-1234'), len 12, in ; 

V '999-999-9999 'or 'B ' 
f ext, len 3, v '9 ' or *&' 
end substrean 

* — start, termination, and return dates 

dates substream 

f strtdate, len 8, v '99/99/99' or "b' 
f terrodate, len 8, v '99/99/99' or 'B' 
f retndate, len 8, v '99/99/99' or 'B' 

end substream 

* 

* — work status information 

wstatus substream 

f fullpart, len 1, v 'A' or 'B^ 
f permtemp, len 1, v 'A' or "fe' 
f direct, len 1, v 'A' or 'B' 
f workstat, len 1, v 'A' or 'B' 
end substream 

* — jdD title, code 
jobinf substream 

f jobtitle, len 20 

f jctocode, len 2 

end substream 
* 

* — salary information 
salryinf substream 

f lastincr, len 8, v '99/99/99' or 'B' 

f amtincr, len 7, v ^' 

f perincr, len 3, v 'n' 

f salary, len 8, v 'N' 

f speriod, len 1, v 'A' or 'B' 

end substream 
* 

* — error message facility 
errmesg substream 
error f error, len 30, output 
end substream 

* 
* 

end stream 
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REV. 



B 



1^3040 



SAMPIE FCMl DEFINITICN 



INPUT STREAM DESCRIPTOR 



SUBSTREAM 



FIELD 



LENGTH 



START 



1 


NAME 


30 


1 


1 


EM£« 


4 


31 


1 


DEFIN 


3 


35 


1 


MARITAL 


1 


38 


2 


STREET 


30 


1 


2 


CITY 


20 


31 


2 


STATE 


2 


51 


2 


ZIPOODE 


5 


53 


2 


HOMEFCNE 


12 


58 


2 


WDRKPONE 


12 


70 


2 


EXT 


3 


82 
1 


3 


STRTDATE 


8 


3 


TERMEATE 


8 


9 


3 


RETNDATE 


8 


17 


4 


FUr.r.PftKI' 


1 


1 


4 


PERM-ltMP 


1 


2 


4 


DIRECT 


1 


3 


4 


WORKyiAT 


1 


4 


5 


JOBTITI£ 


20 


1 


5 


JOBCODE 


2 


21 


6 


LASTINCK 


8 


1 


6 


AffTINCR 


7 


9 


6 


PERINCR 


3 


16 


6 


SALARY 


8 


19 


6 


SPERIOD 


1 


27 
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OUTPUT STREAM DESCRIPTOR 



SUBSTKEAM 


FIEID 


LENGTH 


STAR 


1 


NAME 


30 


1 


I 


EMEW 


4 


31 


1 


DEPIN 


3 


35 


1 


MARITAL 


1 


38 


2 


STREET 


30 


1 


2 


CITY 


20 


31 


2 


STATE 


2 


51 


2 


ZIPCODE 


5 


53 


2 


HOMEFCNE 


12 


58 


2 


WORKFONE 


12 


70 


2 


EXT 


3 


82 


3 


STRTDATE 


8 


1 


3 


TERMDATE 


8 


9 


3 


RKTNDATE 


8 


17 


4 


FULLEART 


1 


1 


4 


PERMTEMP 


1 


2 


4 


DIRECT 


1 


3 


4 


WORKSTAT 


1 


4 


5 


JOBTITLE 


20 


1 


5 


JOBCODE 


2 


21 


6 


LASTINCR 


8 


1 


6 


AMTINCR 


7 


9 


6 


PERINCR 


3 


16 


6 


SALARY 


8 


19 


6 


SFERIOD 


1 


27 
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SAMPLE FORM lEFINITION 



(0083) * ESFCBM, FORMS, JEW, 76/12/30 fonnat descriptor definition 
(0084) 



(0086) 

(0087) 

(0088) 

(0089) 

(0090) 

(0091) 

(0092) 

(0093) 

(0094) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0095) 

(0096) 

(0097) 

(0098) 

(0099) 

(0100) 

(0101) 

(0102) 

(0103) 

(0104) 

(0105) 

(0106) 

(0107) 

(0108) 

(0109) 

(0110) 

(0111) 

(0112) 

(0113) 

(0114) 

(0115) 

(0116) 

(0117) 

(0118) 



* 
* 

* 

* 

* 
* 

* 



******************************************* 

* * 

* format definition * 

* * 
******************************************* 



* — Macro definition file ( FORMS > MACROS ) 

* Start FORMS>MACBDS 

* $INSEFT file for standard syntax abbreviations 



f def field 

V def validate 

len def length 

pos def position 

in def input 

out def output 

jus def justify 

r def right 

1 def left 

c def center 

np def noprotect 
* 

* End FORMS>MACRDS 

* 

* 

*-- -device fonnat definition for VISTAIV'3 terminal 

* last updated: 30-Dec-76 

* 



estatus 



fonnat 
device vistar3 



* — literal form header 

f 'Employee Status Form' pos (32,1) 

* 

* — header line » employee name, id#, dept# 

f 'name' pos (1,3) 
name f len 30, pos (7,3), np 

f 'emp#' pos (47,3) 
empn f len 4, pos (53,3), np 

f 'dept#' pos (68,3) • 

deptn f len 3, pos (75,3), np 

* 

* — ^marital information 

f 'marital status' pos (1,5) 
marital f len 1, pos (17,5), np 

f 'S=single, M=inarried, D=divorced, »swidowed 
pos (20,5) 
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(0119 
(0120 
(0121 
(0122 
(0123 
(0124 
(0125 
(0126 
(0127 
(0128 
(0129 
(0130 
(0131 
(0132 
(0133 
(0134 
(0135 
(0136 
(0137 
(0138 
(0139 
(0140 
(0141 
(0142 
(0143 
(0144 
(0145 
(0146 
(0147 
(0148 
(0149 
(0150 
(0151 
(0152 
(0153 
(0154 
(0155 
(0156 
(0157 
(0158 
(0159 
(0160 
(0161 
(0162 
(0163 
(0164 
(0165 
(0166 
(0167 
(0168 
(0169 
(0170 
(0171 



* address information 

f 'address: street' pos (1,7) 

street f len 30, pos (18,7), np 

f 'city' pos (10,8) 

city f len 20, pos (18,8) , np 

f 'state' pos (41,8) 

state f len 2, pos (49,8), np 

f 'zip' pos (54,8) 

zipcode f len 5, pos (60,8), np 

* — telejiione nunbers... 

f 'telej*ione #: home' pos (1,10) 
hanefone f len 12, pos (20,10), np 

f 'business' pos (35,10) 
workfone f len 12, pos (45,10), np 

f 'extension' pos (60,10) 
ext f len 3, pos (71,10), np 

* — start date, termination date, return date 

f 'start date ' pos (1,12) 
strtdate f len 8, pos (13,12) , np 

f 'term date' pos (24,12) 
termdate f len 8, pos (35,12), np 

f 'return date' pos (46,12) 

retndate f len 8, pos (59,12) , np 
* 

* — work status 

f 'status: ' pos (1,14) 
fullpart f len 1, pos (10,14) , np 

f 'F=full, P=part', pos (13,14) 
permtemp f len 1, pos (38,14) , np 

f 'P=pennanent, T=tQnporary ', pos (41,14) 
direct f len 1, pos (10,15) , np 

f 'Indirect, I=indirect', pos (13,15) 
workstat f len 1, pos (38,15) , np 

f 'A=active, L=leave, T=terminated', pos (41,15) 

* 

* — job information 

f 'job title', pos (1,17) 
jobtitle f len 20, pos (12,17), np 

f 'job code', pos (36,17) 
jobcode f len 2, pos (46,17), np 

* — salary information 

f 'date last increase', pos (1,19) 
lastincr f len 8, pos (21,19), np 

f 'amount', pos (33,19) 
antincr f len 7, pos (41,19), np 

f 'percent', pos (52,19) 
perincr f len 3, pos (61,19), np 
* 

f 'salary', pos (1,21) 
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(0172) salary f len 8, pos (9,21), np 

(0173) speriod f len 1, pos (25,21), np 

(0174) f 'H=hourly,- w=weekly, Y=yearly',- pos (28,-21) 

(0175) * 

(0176) * — error message field 

(0177) error f len 30, pos (1,24), blink 

(0178) * 

(0179) * 

(0180) end device 

(0181) end format 

0000 ERECTS (FDL, REV 12.0 - PRE-REIZASE) 
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SAMPI£ F^i PROGRM 
US lira FORMS 



C EMPUPD, FORMS-DEMO, JRW, 77/01/02 

C **EORMS** DEMONSTRATION PROGRAM - EMPLOYEE STATUS UPDATE 

C 

C 

C 

C ^THIS PROGRAM DEMONSTRATES SOME OF THE CAPABILITIES OF THE 

C PRIME FORMS MANAGEMENT SYSTEM. 

C 

C OPERATION: 

C 

C FROM COMMAND LEVEL: R *EMPUP 

C 

C . TO CREATE A NEW ENTRY (NEW EMPLOYEE) : 

C 

C ENTER THE EMPLOYEE NAME INTO THE NAME FIELD AND 

C DEPRESS THE TRANSMIT KEY. 

C 

C THE EMPLOYEE WILL BE ASSIGNED THE NEXT SEQUENTIALLY 

C AVAILABIfi ID# FROM THE CONTROL FILE (E*CTRL) . 

C THE OEBRATOR MAY THEN PROCEED TO ENTER THE DATA 

C FOR THE NEW EMPLOYEE INTO THE FIEII^ HK)VIDED. 

C WHEN DONE, DEPRESS THE TRAIBMIT KEY TO UPDATE 

C THE KI/DA FILE. TO IGNORE THE UPDATE, CLEAR THE 

C EMPLOYEE NAME FIEID AND DEPRESS THE TRANSMIT KEY. 

C 
C 

C . TO UPDATE AN ALREADY-EXISTING ENTRY: 

C 

C ENTER EITHER THE EMPLOYEE NAME INTO THE EMPLOYEE 

C NAME FIEID OF THE EMPLOYEE ID# INTO THE ID# FIELD 

C AND DEPRESS THE TRANSMIT KEY. THE KI/DA FILE WILL 

C BE SCANNED FOR THE GIVEN ENTRY AND, IF FOUND, THE 

C DATA FOR SAID EMPLOYEE WILL BE DISPLAYED ON THE SCREEN. 

C IF NOT FOUND, A SUITABLE ERROR MESSAGE WILL BE DISPLAYED 

C IN THE LOWER LEFT-HAND CORNER Cf THE CRT. 

C 

C WHEN THE USER HAS MODIFIED THE- DESIRED DATA, HE MAY 

C EEPRESS THE TRANSMIT KEY TO UPDATE THE KI/DA FILE -OR- 

C HE MAY CLEAR THE EMPLOYEE NAME FIEID IF HE DOES NOT 

C WISH TO UPDATE THE FII£. 

C 

C 

C .ID EXIT THE EKX31AM, CLEAR BOTH EMPLOYEE NAME AND EMPIX)YEE 

C * ID# FIELDS (LEAVE THEM BLANK) AND HIT THE TRANSMIT KEY. 
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C 

C 

C 

C 

C TO INITIALIZE THE DATA AND CONTPOL FILES, THE USER CAN RUN THE 

C 'C DATA' CX3MMAND FILE. 

C 

C 

C 

$INSERr EffJIV 

C 

$INSERr SYSCOM>FILD.F 

$INSERT SYSCOM>ERRD.F 

C 

C 

INTEGER VERRET, ERROOD, ARY(14), XEMEN, I, VTBL{18) 
C 
C 

C INITIALIZE PRCX3^AM: 

C INVOKE FCKM, OKN DATA FILES. 
C 

WRITE (1,100) 
100 FORMAT ('##INVOKE ESTATUS ') 

CALL SEARCH (OENRED, 'E*DATA', 1) 
CALL SEARCH (OENBTH, 'E*CTRL', 2) 

GO TO 500 /* READ INITIAL DATA 

C 
C 

C HERE TO CLEAR ERROR MESSAGE FIELD AND UNPROTECTED 

C DATA TO H«XESS NEXT EMPLOYEE. 

C 

300 WRITE (1,310) 

310 FORMAT ( '##NOEROTECT EMPN '/ 

+ '##SUBSTREAM ERRMESG'/ 

+ / 

+ '##CI£AR') 

C 
C 

C INPUT DATA FOR NEXT EMPLOYEE. 

C 

500 ASSIOl 510 TO VERRET /* VALIDATION ERROR RETURN 

GO TO 530 
C 
C 

C HERE FOR VALIDATION ERROR RECOVERY WHII£ 

C READING HEADER RECORD. 

C 

510 WRITE (1,520) /* RE-INPUT 1ST SUBSTREAM 

520 FORMAT('##SUBSTREAM HEADER') 

C 

530 READ (1, 540, ERR=90000) NAME,EMHJ,DEPrN,MARTAL 

540 FORMAT (15A2, 14, 13, Al) 

C 
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C 

C EXil IF BOTH NAME AND EMPLOYEE # FIELDS APE EMPTY. 

Q 

IF(NAME(1).NE. ' '.OR.Q1IW.NE.0) GO TO 600 

WRITE (1,550) 
550 FORMAT ( '##CLEAR ALL 7 '##REI£ASE ') 

CALL SEARCH (CLOSE, 0, 1) 

CALL SEARCH (CLOSE, 0, 2) 

CALL SEARCH (CLOSE, 0, 3) 

CALL EXIT 
C 
C 
C ^HERE IF EITHER EMPLOYEE! OR NAME SPECIFIED. 

C 

600 IF{EMHI.EQ.0) GO TO 2000 

C 

C 

C EMPLOYEE ID # SUPPLIED - LOOK UP ON INEEX 0. 

C 

CALL FIND$ (1,FILBUF,EMIN,ARY, :40000, $80000, 0,0, 0,0) 

C 

C 

C— UPDATE FORM WITH DATA READ FROM FII£. 

C 

700 WRITE (1,710) 

710 FORMAT ( '##PROTBCT EMm '/ 

+ '##SUBSTREAM IEAEER') 
C 

800 WRITE (1,810) FIIBUF 
810 F0K4AT( 

+ 15A2,B'####',B'###',A1/ 

+ 25A2,A2,2A2,A1,12A2,B'###7 

+ 12A2/ 

+ 4A1/ 

+ 10A2,A2/ 

+ 4A2,3A2,A1,B'###',4A2,A1/ 

+ / 

+ ) 
C 
C 

C ^READ ANY UPDATED DATA FRCM 1HE SCREEN. 

C THE OPERATOR AT THIS POINT HAS THE FOLLCWING OPTIONS: 

C 

C A) CHANGE ANY DATA ANY HIT XMIT - THE UPDATES WILL BE MADE 

C TO THE KI/DA FILE. 

C B) CLEAR THE NAME FIEID (WITH THE 'CI£AR FIELD ' KEY) 

C THIS WILL CAUSE NO UH3ATE TO OCCUR. 

C 

1000 ASSIGN 1005 TO VERRET 

1005 READ (1, 1100, ERR=90000) FIIBUF 

1100 FOFMAT( 
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+ 15A2,I4,I3,A1/ 

+ 25A2,A2^2A2,A1,12A2,I3/ 
+ 12A2/ 

+ 4A1/ 
+ 10A2,A2/ 
+ 4A2,3A2,A1,I3,4A2,A1 
+ ) 
C 

IF (NAME (1) .EQ. ' ') GO TO 300 /* IGNORE UPDATE 

C 

C 

C UPDATE THE KI/tiA FILE WITH THE USER'S CHANGES. 

C THIS IS DONE BY DEI£TING THE ENTRY BY DELETING THE ERIMARY 

C INDEX ENTRY AND THEREFCMl DELETING ALL RELATED SECONDARY INDEX 

C ENTRIES. THE DATA IS THEN AHDED VIA 'ADD1$'. 

C 

CALL DEI£T$a,FILBUF,0,ARY,:100000, 0,0, 0,0,0) 

CALL AEDI$(1,FIIBUF,EMFN,ARY,:40000,$81000,0,0,0,0) 

CALL AED1$(1,0,NAME,ARY,:100000, $81000, 1,0, 0,0) 

CALL AEDl$(l,0,I]EPrN,ARY,:100000, $81000, 2,0, 0,0) 

CALL AED1$(1,0,EOT,ARY,:100000, $81000, 3, 0,0,0) 
C 

GO TO 300 

C 

C 

C ^NAME SUPPLIED WITH NO EMPLOYEE # - 

C FIRST ICOKUP IN FILE - IF NOT FOUND, GIVE THE OPERATOR 

C THE OPTION OF ADDING THE NEW EMPLOYEE. 

C 

2000 CALL FIND$(1,FILBUF,NAME,ARY,:40000, $4000, 1,0, 0,0) 
CALL FIND$(l,FirBUF,EMHq,ARY,:40000, $81000, 0,0, 0,0) 
GO TO 700 /* POUND. . . 

C 

C 

C ^NEW EMPIDYEE - FIRST GET NEXT AVAILABLE ID# FROM COJTROL 

C FILE AND DISPLAY IN EMPLOYEE # FIELD. IF THE OPERATOR 

C I£AVES THIS FIEID ALONE, THE EMPLOYEE WILL BE ADDED TO THE 

C FILE. IF THIS FIELD IS CLEARED, THE OPERATION IS IGNORED. 

4000 CALL SEARCH (REWIND, 0, 2) 

READ(6,4010) EMIN 
4010 FORMAT (15) 

XEMIN=EMrN 
C 

WRITE (1,4050) NAME, EMHJ 
4050 FORMAT (15A2,B '####') 
C 

ASSIC3«J 4055 TO VERRET 
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4055 READ (1, 1100, ERR=90000) FIIBUF 

IF(EMEN.EQ.0.OR.NAME(1).EQ. ' ') GO TO 300 

I AT.! ■ AUJJ.^> IXfT J.ljDUr ,CMtratnta.i i%!Si/£>B/90a.«/u&f »/»«'r-r"/ 

CALL AED1$ ( 1,0, NAME, ARY,: 100000, $81000, 1,0, 0,0) 
CALL AlI)l$(l,0,DEPrN,ARy,:100000, $81000, 2, 0,0,0) 
CALL ADDl${l,0,EXr,ARY,:100000, $81000, 3, 0,0,0) 
C 

C 

C ^UPDATE EMPLOYEE NIMBER IN COOTRDL FILE IF THE 

C USER DIDN'T CHANGE IT ON US. 

C 

IF(EMEN.NE.XEMHJ) GO TO 300 

CALL SEARCH {REWIND, 0, 2) 

EMHJ=EMFN+1 

WRITE (6, 4090) EMIW 
4090 FORMAT (B '#####') 

GO TO 300 
C 
C 

C HANDLE 'FIND' ERROR FRCM KI/DA - 

C 

80000 IF(ARY(1).NE.7) GO TO 80500 

WRITE (1,80010) mm 

80010 FORMAT ('##SUBSTREAM ERPMESG / 

+ 'Employee ',B '####',' not on file') 

C 
C 

C HERE TO SET UP SCREEN AFTER ERRCH. 

C THIS WILL CLEAR THE UNPRCTECTED DATA, WRITE-ENABIE 
C THE EMPLOYEE # FIELD, AND RETURN TO ACCEPT INFJT FROM 
C THE OffiRATOR. 

C 

80050 WRITE (1,80060) 
80060 FORMAT ( '##NOPR0TECT EMEN '/ 
+ '##CLEAR') 
GO TO 500 
C 

C HERE TO CHECK FOR DUPLICATE ENTRY ERROR 

C 

80500 IF(ARY(1).NE.12) GO TO 81000 

WRITE (1,80510) EMHJ 
80510 FORMAT('##SUBSTREAM ERRMESG'/ 

+ 'Employee # ',B '####',' already on file') 

GO TO 80050 

C 

C 

C HERE ON ANY UNEXPECTED KI/DA FILE HANDLER ERROR. 

C 

81000 WRITE (1,81010) ARY(l) 

81010 FORMAT( 'KI/DA Err # ',B'##') 

GO TO 500 
C 
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C 

C ^HERE OF VALIDATE ERROR FROM READ STATEMEm? 

C 

90000 CALL (2TERR(ERRC0D,1) 

IF(ERRCX)D.NE.2HVA) GO TO 90050 

WRITE (1,90010) 
90010 FORMAT ( '##SUBSTREAM ERRMESG '/ 'Val idate Error ') 

GO TO VERRET 
C 
90050 IF(ERRa3D.NE.2HFD) GO TO 90100 

WRITE (1,90060) 
90060 FORMAT ( '##SUBSTREAM ERRMESG V 'Format/Data Mianatch ') 

GO TO VERRET 
C 

90100 WRITE (1,90120) ERRCOD 
90120 FORMAT ('##SUBSTREAM ERRMESG '/'Error " ',A2, '" ') 

GO TO VERRET 
C 
C 
C 

END 
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APPENDIX D 
cv-iDMc rrtoTTsnT. dtreCTORY FORMATS 

Ihe PDRMS segment directory consists of three control files and a 
variable nvmber of user form definitions. The file formats are 
described below: 

. Module Name File (MNF) - Segment 

■Hiis file contains the name and type (stream or ^f^^^^) of each 
form in the directory. Entry length is five words and file length 
is variable (will acccnmodate any nunber of entries) . 

Ehtry Format: 

Offset Definition 
0-3 Form name (left adjusted, right padded) 

4 Entry type (l=strean, 2=format) 

. Module Information File (MIF) - Segment 1 

The MIF contains information related to each entry in the 
directory Each mod-ale information file entry has a corresponding 
module name file entry. Ihey are the same entry nunber, but, 
because of the difference inf^try sizes, they are not the same 
offset into the two respective files. Entry length is 32 words and 
file length is variable. 

Entry Format: 

Offset Definition 
0-3 Device type (left adjusted, right padded) 

4 Version # 

5-9 Creation date/time 

10-14 Modify date/time 

15-19 Access date/time 

20 Segment directory entry # 

21-31 Reserved for future expansion 
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Tenninal Configuration Block (TCB) - Segment 2 

TSie TCB contains the terminal name for each FORMS terminal on the 
the system. The file is a 64 by 4 matrix, allowing a 1-8 character 
terminal name for each user on a 16, 32, or 64 user systen. The 
file is fixed length, 256 words. 



Pile Format: 






Offset 


Definition 




0-3 


user 1 tenninal 


type 


4-7 


user 2 terminal 


type 


8-11 


user 3 terminal 


type 



252-255 user 64 terminal type 

Note: If the terminal type for a user is undefined, the first word 
of the entry is 0. 
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